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GENERAL PROGRAM INF0R1ATI0N. 
PROGRAM PURPOSE (ABSTRACT) 

THIS PROGRAM HAS THE ABILITY TO TEST MEMOh FROM ADDRESS 
000000 TO ADDRESS 17757777. IT DOES SO USING: 

A. UNIQUE ADDRESSING TECHNIQUES 

B. WORSE CASE NOISE PATTERNS, AND 

C. INSTRUCTION EXECUTION THRUOUT MEMORY. 

THE INTENT OF THIS PROGRAM IS TO TEST AS COMPREHENSIVELY AS 
POSSIBLE ALL MOS MEMORIES USED ON THE LSI 11 BUS WITHOUT 
CONCENTRATING ON ANY ONE SYSTEM. ALTHOUGH THE TESTS RELATE 
TO GENERAL DESIGNS THEY MAY BE COMPLETE FQR CERTAIN SYSTEMS. 
THIS TEST IS ALSO NOT INTENDED TO BE A TOTAL 100* 
TEST or THE MEMORY. OTHER TESTS THAT DO I/O MAY FIND MEMORi 
PROBLEMS THAT THIS TEST IS UNABLE TO. 



SYSTEM REQUIREMENTS 

A. HARDWARE REQUIREMENTS 

LSI-11/2.LSI 11/23. LSI-11/53.LSI-11/73 BUS FAMILY PROCESSORS. 
MINIMUM OF 16KW OF MEMORY. 

OPTIONAL... 

ANY PARITY MEMORY CONTROL MODULE. 
KTFll MEMORY MANAGEMEN". 

B. SOFTWARE REQUIREMENTS 

THE SMALLEST UNIT OF MEMORY THIS PROGRAM WILL RECOGNIZE 
IS 8K. IF ANY ADDRESS IN A 8K BANK CAUSES A TIME OUT 
TRAP. THAT ENTIRE BANK OF MEMORY IS IGNORED BY THE 
PROGRAM. PROGRAM TESTS IN 8KW BANKS. UNLESS IT IS THE LAST 
4KW BEFORE THE I/O PAGE OR LAST 6KW IF 30KU SYSTEM. 

THE PROGRAM IS DESIGNED TO EXERCISE THE VECTOR PORTION OF 
MEMORY (LOCATIONS 0-776) IN EXACTLY THE SAME MANNER AS 
THE REST OF MEMORY. TO MAKE THIS POSSIBLE, WITHOUT 
REQUIRING MEMORY MANAGEMENT. NO SOFTWARE TRAPS ARE USED 
IN THE PROGRAM. THIS MEANS THAT IF MEMORY MANAGEMENT IS 
NOT AVAILABLE OR IS DISABLED (SW12=1). IF THE PROGRAM IS 
RELP^ATED OUT OF BANK 0. IF LOCATION 0-776 ARE SELECTED 
rOR TEST. AND IF AN UNEXPECTED HARDWARE TRAP OCCURS. THE 
RESULTS WILL BE UNPREDICTABLE. 

THE PROGRAM HAS THE PROPER INTERFACE CODE TO ALLOW 
RUNNING UNDER ^HE AUTOMATED 1ANUFACTURING TEST LINE 
SYSTEM - ACTll AND APT. 



1.2.1 HARDUARE SUPPORTED SEQ 0005 

THE FOLLOWING MEMORIES ARE SUPPORTED BY THIS SOFTWARE: 
MSVU-DD, MSVII-lF, MSVll-PK. MSVll-ED, MSVll-LK. MSVll PF. 
MSVll PL, MSVll-R. MSt/ll-Q/A/B/C. MSVli-S. 

1.2.1.1 HARDWARE RESTRICTIONS 

IF THE SYSTEM HAS MIXED MSVll -D (18 BIT) MEMORIES WITH 
MSVll-L OR MSVll-P (22 BIT) MEMORIES.IT IS RECOMMENDED 
TO SET UP THE MSVll -L OR MSVll-P TO iS BIT MODE. 
AS THE PROGRAM AUTOSIZES FOR NONCONTIGUOUS MEMORY, 
IT IS POSSIBLE TO RECEIVE RESPONSES FROM THE "MSvil-D" 
MEMORY WHEN SIZING ABOVE 18 BITS. THIS CAN CAUSE 
INCORRECT MEMORY SIZING AND FALSE ERRORS. ADDITIONALLY. 
THE MSVll-R. MSVll-Q/A/B/C. AND THE MSVU-S ARE SUBJECt 
TO THE SAME LIMITATIONS. IT IS RECOMMMENDED THAT THESE 
MEMORIES NOT BE MIXED WITH MSVll-D. 

1.3 RELATED DOCUMENTS AND STANDARDS 

A. PROGRAMMING PRACTICES - DOCUMENT NO. 175-003-009-01 

B. PDP-11 MAINDEC SYSMAC PACKAGE - MAINDEC 11-DZQAC-C7-D 

C. ^HE APPLICABLE MEMORY SYSTEM MAINTENANCE MANUAL 

D. THE APPLICABLE CIRCUIT SCHEMATICS 

1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

BEFORE RUNNING THIS PROGRAM. A CPU DIAGNOSTIC SHOULD BE RUN 
TO VERIFY THE FUNCTIONALITY OF THE PROCESSOR AND PDP-11 
INSTRUCTION SET. FOR LSI 11/23 :CJKDB DIAG 
FOR LSI-11/2 :CVKAA. DIAG 

IF MEMORY MANAGEMENT IS TO BE USED. THEN THE KTFll DIAGNOSTIC 
CJKDA. SHOULD ALSO BE RUN BEFORE THIS PROGRAM. 

1.5 ASSUMPTIONS 

THIS PPOGRA-1 ASSUMES THE CORRECT OPERATION OF THE CPU AND. IF 
USED. THE 1FM0PY MANAGEMENT OPTION. 

2.0 OPERATING INSTRUCTIONS 

2.1 LOADING AND STARTING PROCEDURES 

2.1.1 LOAD THE PROGRAM USING XXOP OR ANY STANDARD ABSOLUTE LOADER. 

2.1.2 STARTING ADDRESS 200: 
NORMAL PROGRAM EXECUTION. 



2.1.;> STARTING ADDRESS 204: 

RESTART PROGRAM USING PREVIOUSLY SELECTED PARAMETERS. 



SPECIAL ENVIRONf€NTS 



IF THE PROGRAM IS RUN IN AUTOMATIC MODE UNDER ACTll OR 
APTll THE PROGRAM IS DONE AFTER THE FIRST PASS. ALSO. THE 
PROGRAM DOES NOT RELOCATE TO TEST THE LOWER 8K OF MEMORY 
AFTER THE FIRST PASS. 

PROGRAM OPTIONS 

THE SOFTWARE SWITCH REGISTER CLOC. 176) IS USED FOR ALL 
OPERATIONAL SWITCH SETTINGS. 

THE JSER CAN TYPE CTRL G (tG) TO ALLOW SWR CHANGES 
DURING PROGRAM EXECUTION. 



3U15 




1 OR UP.... 


HALT ON ERROR 


SU14 




1 OR UP.... 


LOOP ON TEST 


SW13 




1 OR UP.... 


INHIBIT ERROR TYPEUUT 


SW12 




1 OR UP.... 


INHIBIT MEMORY MANAGEMENT (INITIAL 
START ONLY) 


sun 




1 OR UP.... 


INHIBIT SUBTEST ITERATION (NOT USED) 


SWIG 




1 OR UP.... 


RING BELL ON ERROR 


SW9 




1 OR UP.... 


LOOP ON ERROR 


SU8 




1 OR UP.... 


LOOP ON TEST IN SUR<4:0> 


SW7 




1 OR UP.... 


INHIBIT PROGRAM RELOCATION 


SW6 




1 OR UP..,. 


INHIBIT PARITY ERROR DETECTION 


SW5 




1 OR UP.... 


INHIBIT EXERCISING VECTOR AREA 
(LOCATIONS 0-1000). 



EXECUTION TIMES 

EXECUTION TIME IS DEPENDENT ON TYPE OF MEMORY, AND AMOUNT 
MEMORY. WORSE CASE RUN TIMES WITH MC. MEMORY^ ARE: 



OF 



A. 



B. 



FOR NON-PARITY MEMORY 

FULL PASS: < 5 MINUTES "^OR 64KW 



FOR PARITY MEMORY 
FULL PASS: 



30 MINUTES FOR 1280 KW 

5 MINUTES FOR 64KU 
20 MINUTES FOR 256KU 
117 MINUTES FOR 1280KW 



SEQ 0006 



3.0 



APT TIME IS SETUP FOR 256K- (APPROX. 20 MIN). 

•PLEASE MAKE CHANGES TO APT TIMES AS MEMORY 
INCREASES OR DECREASES IN SIZE. 

ERROR INFORMATION 



SEQ 000 



3.1 ERROR REPORTING 

THERE ARE A TOTAL OF 31(8) TYPES OF ERROR REPORTS GENERATED 
BY THE PROGRAM. SOME OF THE KEY COLUMN HEADING MNEMONICS ARE 
DESCRIBED BELOW FOR CLARITY: 



PC = 

V/PC = 

P/PC = 

TRP/PC 

MA » 
REG * 
PS = 
lUT = 
S/B « 
WAS - 



PROGRAM COUNTER 
(V/PC=P/PC1 



OF ERROR DETECTION 



CODE. 



VIRTUAL PROGRAM COUNTER. THIS IS WHERE THE ERROR 
DETECTION CODE CAN BE FOUND IN THE PROGRAM LISTING. 



PHYSICAL PROGRAM COUNTER. THIS IS WHERE THE 
DETFaiON CODE IS ACTUALLY LOCATED IN MEMORY. 



PHYSICAL PROGRAM COUNTER OF THE CODE WHICH CAUSED 
TRAP. 

MEMORY ADDRESS 

PARITY REGISTER ADDRESS. 

PROCESSOR STATUS WORD. 

INSTRUCTION UNDER TEST. 

WHAT CONTENTS SHOULD BE. 

WHAT CONTENTS WAS. 



ERROR 
A 



3.2 ERROR HALTS 

WITH THE 'HALT ON ERROR' SWITCH CSW15) NOT 
SEVERAL PROGRAMMED 'HALTS' IN THE PROGRAM: 



SET THERE ARE 



C. 



IN THE ERROR TRAP SERVICE ROUTINE FOR UNEXPECTED TRAPS TO 
VECTOR 4. THIS ONE WILL OCCUR IF A 2ND TRAP TO 4 OCCURS 
BEFORE THE ERROR REPORT FOR THE FIRST HAS HAD A CHANCE TO 
BE PRINTED OUT. 



IN THE RELOCATION ROU 
RELOCATED BACK TO THE F 
CODE WAS NOT ABLE TO BE 



INE IF THE PROGRAM IS BEING 
RST 8K OF MEMORY AND THE PROGRAM 
RANSFERRED PROPERLY. 



IN THE CASE OF ERROR REPORTING AND THERE IS NO TERMINAL 
TO .ALLOW THE INFORMATION TRANSFER. 



D. IN THE POWER FAIL ROUTINE IF THE POWER UP SEQUENCE HAS 
STARTED 8EF0RE THE POWER DOWN SEQUENCE HAD A CHANCE TO 
COMPLETE ITSELF. 

E. IN THE MEMORY MAPPING ROUTINE OR ANY OF THE ADDRESS 
CONTROL ROUTINES. FAILURES TO FIND A MEANINGFUL MAP. 

PERFORMANCE AND PROGRESS REPORTS 
NOT APPLICABLE 

DEVICE INFORMATION TABLES 

THE FOLLOWING IS A PICTURE VIEW OF A PARITY CONTROL STATUS 

REGISTERS. WHICH WILL SHOW BIT ASSIGNMENTS AND DEFINITIONS. 

TO PROVIDE A HANDY REFERENCE: 

MOS PARITY REGISTER 

!PE! !!!!•!!!!!! !WP! !AE! 
I I I I I I I I I I I I I I I I I 

15 14 13 12 11 10 09 08 07 06"o5'o4"o3'o2"oi'o6' 

BIT ASSIGNMENTS ARE DEFINED AS FOLLOWS: 

BIT15 PARITY ERROR 

BIT02 WRITE WRONG 
PARITY NORMAL PARITY 
(ODD) WHEN CLEAR; 
OTHER PARITY CEVEN5 
WHEN SET 

BITOO ACTION ENABLE NO 
ACTION WHEN CLEAR. TRAP 
TO VECTOR 114 WHEN SET. 

BITS 5-11 ADDRESS BITS FOR A11-A17 
OR ADDRESS BITS 18 -21. IF BIT 14=1 
LOCATES PARITY ERROR tO A IK 
SEGMENT OF MEMORY. 

BIT 14... ALWAYS READ AS A ZERO 
ON 128KW. IN A 2044 MACHINE^R/U 
AND IS THE EXTENDED CSR REAl5 
ENABLE BIT FOR A18-A21 IN BITS 5-8. 



SUB -TEST SUMMARIES 



SECTION 1: ADDRESS TESTS. 

THESE TESTS VERIFY THE UNIQUENESS OF EVERY MEMORY ADDRESS. 

TEST 1 WRITES AND READS THE VALUE OF EACH MEMORY WORD 
ADDRESS INTO THAT MEMORY LOCATION. AFTER ALL MEMORY HAS BEEN 
WRITTEN, ALL LOCATIONS ARE CHECKED AGAIN. 

TEST 2 WRITES THE BYTE VALUE OF EACH ADDRESS INTO THAT BYTE 
LOCATION AND CHECKS IT. 

TEST 3 WRITES THE COMPLEMENT OF EACH WORD ADDRESS INTO THAT 
LOCATION AND CHECKS IT. 

TEST 4 WRITES THE 8K BANK NUMBER INTO EACH BYTE OF THAT BANK 
AND CHECKS IT. 

TEST 5 WRITES THE COMPLEMENT OF THE BANK NUMBER INTO EACH 
BYTE OF THAT BANK AND CHECKS IT. 

SECTION 2: WORST CASE NOISE TESTS. 

THESE ARE INTENDED TO APPLY MAXIMUM STRESS TO THE VARIOUS 
TYPES OF PDP-11 MOS MEMORIES. 

TEST 6 AND TEST 7 ARE SUPPLIED TO ALLOW THE OPERATOR TO 
SELECT A SINGLE WORD DATA PATTERN (SA=204) AND SCOPE ON 
EITHER THE WRITING (DATO) IN TEST 6 OR THE READING (DATI) IN 
TEST 7 OF THAT DATA. 

LOCATION . CONST :0 SHOULD BE CHANGED IF A DIFFERENT 
SINGLE WORD DATA PATTERN IS CONSIDERED. 

TEST 10 WRITFS AND THEN CHECKS A SERIES OF SINGLE WORD 
PATTERNS WHICH ARE DESIGNED TO STRESS PARITY MEMORY. 

TEST 11 WRITES ALL MEMORY WITH I'S IN EVERY BIT AND THEN 

"RIPPLES" A '0' THROUGH IT. 

TEST 12 WRITES ALL MEMORY WITH O'S IN EVERY BIT AND THEN 
"RIPPLES" A "1" THROUGH IT. 

TEST 13 WRITES WRONG PARITY IN EACH BYTE OF MEMORY AND 
CHECKS THAT THE PARITY DETECTION LOGIC WORKS. THIS TEST IS 
SKIPPED FOR NON-PARITY MEMORY. 

TEST 14 WRITE "RANDOM" PROGRAM CODE THROUGH MEMORY AND 
CHECKS IT. 

SECTION 3: INSTRUCTION EXECUTION TESTS. 

THIS GROUP OF TESTS PLACE INSTRUCTIONS IN THE MEMORY UNDER 
TEST. THEN EXECUTES THE INSTRUCTIONS. AND FINALLY, CHECKS 



SEQ 0009 



I 



/ 



THAT THEY EXECUTED CORRECTLY. 

}^?Je'jN fiSFUJ^ JN^INSTRUCTION UHICH DOES A OATI AND A 

TEST 20 EXECUTES AN INSTRUCTION UHICH DOES A DATIO AND A 

OATO. 



6.4 SECTION 4: MOS TESTS 

TEST 23 -WRITES A PATTERN OF 000377 THROUGH MEMORY, THEN 
COMPLEMENTS_IT ADDRESSING DOWNWARD, COMPLIMENTS THE NEW 
PATTERN ADDRESSING UPWARD. COMPLIMEI^TS THE THIRD PATTERN 
ADDRESSING JPWARD AND I^INALLY COMPLIMENTS THIS NEW AB 
PATTERNS ADDRESSING DOWNWARD. 



TEST 24-25 WRITE A CHECKERBOARD THROUGH MEMORY THEN 
FOR 2 SECONDS AND THEN VERIFIES NO DATA HAS CHANGED. 



STALLS 



6.5 SPECIAL TOGGLE IN TESTS 

6.5.1 TOGGLE- IN -PROGRAM #1 

THE FOLLOWING IS A TOGGLE IN MEMORY ADDRESS TEST. THIS TEST 
IS USEFUL WHEN AN ADDRESS SELECTION FAILURE IS SUSPECTED 
INVOLVING THE FIRST 8K OF MEMORY THIS PROGRAM WRITES THE 
VALUE OF EACH ADDRESS INTO IiSELF STARTING WITH THE LOWER 
LIMIT (200) AND CONTINUING TO THE UPPER LIMIT. AFTER ALL ADDRESSES 
HAVE BEEN WRITTEN EACH ADDRESS IS CHECKED FOR THE CORRECT 
CONTENTS STARTING WITH THE UPPER LIMIT AND CONTINUING TO THE 



LOCATION CONTENTS 
10 012700 
12 000200 



MNEMONIC 
" 200.ro 



MOV #, 



14 
16 
20 
22 
24 
26 
30 
32 
34 



010001 
020037 
000176 
001403 
010010 
005720 
000772 
010004 
020001 



1$; 



2$: 
3$; 



MOV RO.Rl 
CMP R0.9«SUR 

BEQ 2$ 
MOV RO.CRO) 
TST (R6)* 
BR 1$ 
MOV R0,R4 
CMP RO.Rl 



COMMENT 

GET FIRST ADDRESS 
TO TEST 

(EXAMPLE START ADDRESS) 

SAVE IN Rl 

CHECK UPPER LIMIT 

(IN SOFTWARE SWITCH REGISTER) 

BRANCH IF AT UPPER LIMIT 

LOAD VALUE INTO ADDRESS 

STEP TO NEXT ADDRESS 

LOOP UNTIL DONE 

SAVE UPPER LIMIT 

CHECK IF AT LOWER LIMIT 



SEO 0010 



* 36 
40 
42 
44 
46 



001767 
024000 
001774 
000000 
000772 



BEQ 15 

CMP -(RO),RO 
BEQ 3$ 
HALT 
BR 3$ 



BRANCH IF DONE 
CHECK DATA URITTEN 
BRANCH IF OK 
ERROR 
LOOP BACK 



6.5.2 TOGGLE-IN-PROGRAM *2 

THE FOLLOWING IS ALSO A TOGGLE IN PROGRAM TO BE USED WITH 
TOGaE-IN-PROGRAM *1 FOR MORE COMPLETE ADDRESS TESTING. THIS 
PROGRAM URITES THE COMPLEMENT VALUE Or EACH ADDRESS INTO 
ITSELF STARTING WITH THE UPPER LIMIT AND CONTINUING TO THE 
LOWER LIMIT. AFTER ALL ADDRESSES HAVE BEEN WRITTEN EACH 
ADDRESS IS CHECKED FOR THE CORRECT CONTENTS STARTING WITH THE 
LOWER LIMIT ADDRESS AND CONTINUING TO THE UPPER LIMIT. 
TOGGLE IN THE FOLLOWING PATCHES TO THE PROGRAM ABOVE. 

THIS IS THE PATCH TO TOGGLE-IN-PROGRAM #1: 



LOCATION CONTENTS 
36 001404 



MNEMONIC COMMENT 
BEQ 4$ i BRANCH TO PROGRAM *2 



THESE ARE THE ADDITIONS TO TOGGLE-IN-PROGRAM #1: 



LOCATION 


CONTENTS 




MNEMONIC COMMENT 


50 


010402 


4$: 


MOV R4.R2 


GET UPPER LIMIT 


52 


005142 


5$: 


COM -(ft2) 


COMPLEMENT ADDRESS 


54 


020201 




CMP R2.R1 


CHECK IF AT LOWER LIMIT 


56 


001375 




BNE 5$ 


LOOP UNTIL DONE 


60 


020204 


6$: 


CMP R2.R4 


CHECK IF AT UPPER LIMIT 


62 


001755 




BEQ 1$ 


GO TO PROGRAM 1 IF DONE 


64 


010203 




MOV R2.R3 


GET VALUE OF ADDRESS 


66 


005103 




COM R3 


COMPLEMENT VALUE 


70 


020322 




CMP R3.(R2)+ 


CHECK ADDRESS 


72 


00^772 




BEQ 6$ 


BRANCH IF OK 


74 


000000 




HALT 


ERROR 


76 


000-'70 




BR 6$ 


GO CHECK NEXT ADDRESS 



^0 

t 



JEQ 0011 



Mi 

CVMSAB 0-2 flEGAUORD MEMORY fX MACRO Y05.02 Monday 23-Dec-85 08:45 Page 2 



.TITLE CVMSAB 0-2 MEtAUORD MEMORY EXERCISER. 16K VER 
♦COPYRIGHT (C) 1985 
♦DIGITAL EQUIPMENT CORP. 
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* 

♦PROGRAM BY SAM/BARRY BILL 

♦THIS PROGRAM WAo ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 

♦PACKAGE (MAIN0EC-11-DZQAC-C7). JUL. 1982. 

♦ 



SEQ 0012 



637 



638 
639 



001100 
104000 
000004 

000011 
000012 
000015 
000200 
177776 
177776 
177774 
177772 
177570 
177570 

000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 

000000 
000040 
000100 
000140 



.SBTTL OPERATIONAL SUITCH SETTINGS 



SWITCH 
...... 

14 
13 
12 
11 
10 
9 
8 
7 
6 
5 



USE 



HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
INHIBIT KTll (AT START TIME ONLY) 
INHIBIT ITERATIONS 
BELL ON ERROR 
LOOP ON ERROR 
LOOP ON TEST IN SWR<4:0> 
INHIBIT PROGRAM RELOCATION 
INHIBIT PARITY ERROR DETECTION 
INHIBIT EXERCISING VECTOR AREA. 
SBTTL BASIC DEFINITIONS 
.♦INITIAL ADDRESS OF THE STACK POINTER ♦♦♦ 1100 ♦♦♦ 
STACK= 1100 

ERRORS EMT BASIC DEFINITION OF ERROR CALL 

SCOPE; lOT BASIC DEFINITION OF SCOPE CALL 

.•♦MISCELLANEOUS DEFINITI6nS 



HT= 
lF= 
CR» 
CRLF= 
PS= 
PSU= 



11 

12 
15 

200 

177776 
PS 



5TKLMT= 177774 



PIRQ= 
DSUR= 
DDISP= 



177772 
177570 
177570 



♦GENERAL PURPOSE REGIST^ft DEFINITIONS 



CODE FOR HORIZONTAL TAB 
CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN -LINE FEED 
PROCESSOR STATUS WORD 

STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGtc^pR 



ft6= 
Rl- 
R2= 
R3- 
94= 
R5= 
R6= 
R7= 
SP= 
PC= 



*0 
*1 

m 

HA 
#5 

HI 



i^PRIORITY LEVEL DEFINITlbNS 
PR0= 0 
PR1= 40 
PR2» 100 
PR3= 140 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTt^R 
GENERAL REGISTLR 
GENERAL REGISTE^^ 
GENERAL REPISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



PRIORITY LEVEL 0 
PRIORITY LEVEL 1 



PRIORITY LEVEL 2 
PRIORITY LEVEL 3 



1 
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SEQ 0013 



000200 
000240 
000300 
000340 

100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

100000 
040000 
020000 
ClOOOO 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000U04 
000002 



PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 



PR4= 200 

PR5= 240 

PR6= 300 

PR7- 340 iiiAWMj.li i-uw 

:*"SUITCH REGISTER" SUITCh DEFINITIONS 

§U15= 100000 

SW14= 40000 

SU13» 20000 

SU12» 10000 

SU11» 4000 

SU10= 2000 

SU09= 1000 

SU08= 400 

SU07= 200 

SU06= 100 

SU05= 40 

SU04= 20 

SU03= 10 

SU02= 4 

SW01= 2 

SUOO= 1 

SU9= SU09 

SU8= SU08 

SU7= SU07 

SU6= SU06 

SU5= SU05 

SUA' SU04 

SU3= SU03 

SU2» SU02 

SU1= SUOl 

SUO= SUOO 

:*DATA BIT DEFINITIONS (BITOO TO BIT 15) 

6lT15= 100000 

)IT14= 40000 

JIT13= 20000 

)IT12= 10000 

)IT11= 4000 

5IT10= 2000 

JIT09' 1000 

JIT08» 400 

JIT07« 200 

}IT06= 100 

JIT05= 40 

JIT04= 20 

^IT03» 10 

JIT02= 4 

3IT01= 2 

JITOO= 1 

JIT9= BIT09 

JIT8= BIT08 

JIT7= BIT07 

JIT6= BIT06 

}IT5= BIT05 

}IT4= BIT04 

}IT3= BIT03 

JIT2= BIT02 

3IT1 BITOl 
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640 
641 
642 



643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
657 



000001 

000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 



000250 

177572 
177574 
177576 
172516 

172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 

172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
000000 
000006 



000001 
000114 



017777 
037777 
000007 



000000 



BIT0= BITOO 
:*BASIC "CPU' 
fRRVEC= 4 
RESVEC= 10 
TBITVEC=14 
TRTVEC= 14 
BPTVEC= 14 
IOTVEC= 20 
PURVEC= 24 
EMTVEC= 30 
TRAPVEC=34 
TKVEC= 60 
TPVEC= 64 
PIRQVEC=240 



TRAP VECTOR ADDRESSES 

TIME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 

"T" BIT 

TRACE Trap 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) **SCOPE** 
POWER FAIL 

EMULATOR TRAP (EMT) **ERROR** 
"TRAP" TRAP 
TTY KEYBOARD VECTOR 
TTY PRINTER VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 



.SBTTL MEMORY MANAGEMENT DEFINITIONS 
;*KT11 VECTOR ADDRESS 
MMVEC= 250 

:*KT11 STATUS REGISTER ADDRESSES 
§R0= 177572 
SR1» 177574 
SR2= 177576 
SR3= 172516 

;*KERNEL "I" PAGE DESCRIPTOR REGISTERS 

KIPDR0= 172300 

KIP0R1= 172302 

KIPDR2= 172304 

KIPDR3= 172306 

KIPDR4= 172310 

KIPDR5= 172312 

KIPDR6= 172314 

KIPDR7= 172316 

:*KERNEL "I" PAGE ADDRESS REGISTERS 
KIPAR0= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 



UP = 0 
RU = 6 



J CODE FOR UPWARDS MAP IN MEM MGMT PDR'S 
;CODE FOR READ/WRITE IN MEM MGMT PDR S 



:* parity memory definitions. 
Ae=i 

PARVEC=114 

;* MISCELLANEOUS ASSIGNMENTS 
MASK4K= 17777 
MASK8K= 37777 
MFPT= 7 



. SBTTL TRAP CATCHER 
.-0 



jPARITY ACTION ENABLE 
: PARITY TRAP VECTOR 



MASK FOR 4K ADDRESS BANK BOUNDARY. 
MASK FOR 8K ADDRESS BANK BOUNDARY 
MOVE FROM PROCESSOR TYPE TO RO 



CVnSAB 0-2 MEGAUORO ri£HORY EX 
TRAP CATCHER 



000174 

000174 000000 

000176 000000 

000200 000137 003744 

658 000204 000167 000070 
659 

660 000004 

661 000004 023430 

662 000006 000000 
663 

664 



000010 

000046 
000046 012722 

000052 
000052 040000 

000010 
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*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2, HALT' 
*SEQUENCE TO CAtch ILLEGAL TRAPS AND INTERRUPTS 
*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
. = 174 

DISPREG: .WORD 0 SOFTWARE DISPLAY REGISTER 

SUREG: .WORD 0 ;;S0FTUARE SUITCH REGISTER 

.SBTTL STARTING ADDRESS(ES) 

JMP a#START :;JUMP TO STARTING ADDRESS OF PROGRAM 

JMP RESTAR ;RESTART ADDRESS. USING PREVIOUS PARAMETERS. 

.=ERRVEC 
.UORD ERRTRP 
.UORD 0 

.SBTTL ACTll HOOKS 

;H00KS REQUIRED BY ACTll 

$SVPC«. ;SAVE PC 

.=46 

$EN0A0 ::1)SET L0C.46 TO ADDRESS OF $ENDAD IN .$EOP 

.'52 

•WORD BIT14 ::2)SET L0C.52 TO BIT14 

.=$SVPC :: RESTORE PC 



SEQ 0015 



CVMSA6 0-2 HEGAUORD MEHORY EX MACRO Y05.02 
ACni HOCKS 
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SEQ 0016 



666 

667 000100 

668 

669 

670 

671 

672 

673 

6-'4 

675 000300 

676 000302 

677 000304 

678 000306 

679 000312 

680 000316 

681 000320 

682 000324 

683 000330 

684 000332 

685 000340 

686 000342 

687 000346 

688 000352 

689 000356 

690 000360 

691 000362 

692 000366 
C93 000370 

694 000374 

695 0C0376 

696 000400 

697 000402 

698 000404 

699 000406 

700 000412 

701 000420 

702 000422 
7C^ 000426 

704 000430 

705 000432 

706 000436 

707 000440 

708 000444 

709 000450 
■'lO 000454 

711 000460 

712 000462 

713 000466 

714 000472 

715 000474 

716 000500 

717 000502 

718 000510 
"'19 000512 

720 000516 

721 000522 

722 000526 



000100 
00C104 



000300 



005005 
000401 
010705 
012706 
005767 
001002 
000167 
005767 
001454 
032737 
001027 
012700 
012701 
012720 
005301 
001374 
012700 
005020 
012720 
005020 
005020 
005020 
005020 
005020 
012720 
012737 
005000 
016701 
006201 
103403 
062700 
000773 
010037 
000137 
062700 
010037 
000410 
016700 
062700 
010006 
062700 
000110 
022767 
001402 
004767 
005067 
105067 
000167 



000340 000002 



.=100 
.WORD 



104.340.2 



:IF BEVENT IS ENABLED 

: IGNORE ITS INTERRUPT. DO RTI 



.=300 

• ***************** A*** ********** 

;* THE FQLLOUING ROUTINES ARE LOCATED IN THE VECTOR AREA (0-1000) SO THAT 
:* THEY CAN BE PROTECTED BY SELECTING SU05 (SEE DOCUMENT FOR USE OF SU05). 

; *************************************************************** 



001070 
000216 

003434 
000206 

000001 177572 

172300 
000010 
077406 



172340 
000200 



177600 

000001 177572 
000106 

000400 

172340 
000450 
000200 
172342 

000044 
001070 

177412 

000001 000024 

014546 
000436 
000344 
006254 



ftfSTAR: 

RESTOR: 
RESTl: 



REST2: 



1$: 



2$: 
3$: 



4$: 
5$ 



10$: 



20$; 



21$: 



CLR 

BR 

MOV 

MOV 

TST 

BNE 

JMP 

TST 

BEQ 

BIT 

BNE 

MOV 

MOV 

MOV 

DEC 

BNE 

MOV 

CLR 

MOV 

CLR 

CLR 

CLR 

CLR 

CLR 

MOV 

MOV 

CLR 

MOV 

ASR 

BCS 

ADD 

BR 

MOV 

JMP 

ADD 

MOV 

BR 

MOV 

ADD 

M0\/ 

ADD 

JMP 

CMP 

BEQ 

JSR 

CLR 

CLRB 

JMP 



R5 

RESTl 

PC. R5 

#$tMTAG,SP 

PRGMAP 

REST2 

STARTA 

MMAVA 

10$ 

#6110. 5)#SR0 
2$ 

#KIPDRO,RO 
#8.. Rl 
#07)406. (RO)* 
Rl 
1$ 

#KIPARO.RO 
(RO)* 

#200. (RO)* 
CRO)* 
(RO ♦ 
(RO)* 
RO)* 
(RO)* 

#177600. (RO)* 
#6IT0. a#SRO 
RO 

PRGMAP. Rl 
Rl 



4$ 

#400. 
3$ 
RO. 
3#5$ 
#200. 
RO, 
20 i 
RELOCF. RO 
#$CMTAG.RO 



RO 

8#KIPAR0 
RO 

5)#I<IPAR1 



RO. 

#20$ 
(RO) 
#1. 
21$ 
PC. 

$TtMES 
$TSTNM 
START! 



SP 

$CMTAG.RO 



PRGMAP 
RELO 



CLEAR FLAG TO INDICATE RESTART. 

GO RESTORE PROGRAM BEFORE RESTARTING. 

PUT DATA INTO FLAG FOR RESTORE. 

SET UP THE STACK POINTER, 

CHECK IF THE MEMORY HAS BEEN MAPPED. 

BR IF MEMORY MAPPED. 

GO START, IF NOT MAPPED 

CHECK IF MEM MGMT AVAILABLE. 

BR IF NO MEM MGMT. 

CHECK IF MEM MGMT ACTIVE. 

BR IF MEM MGMT ALREADY SET UP. 

POINT TO FIRST MEM MGMT DDATA REG. 

SET UP COUNTER. 

MAP FIRST 28K l-FQR 1. 

COUNT REGISTERS. 

BR IF MORE REG. 

POINT TO FIRST MEM MGMT ADDRESS REG. 

PARO MAPPED INTO BANKO. 

PARI MAPPED INTO BANKl. 

PAR2 CLEARED 

PAR3 CLEARED 

PAR4 CLEARED 

PAR5 CLEARED 

PAR6 CLEARED 

PAR7 MAPPED INTO LAST BANK. 
ENABLE MEM MGMT. 
INIT TEMP PAR REG. 
GET THE PROGRAM MAP...LO 64K. 
SHIFT THE MAP POINTER... 
BR WHEN FIRST 8K BANK FOUND. 
UPDATE TMP PAR TO NEXT 8K BANK. 
NEXT 8K BANK 

:PUT TEMP PAR INTO FIRST PAR. 
sJUMP INTO PROGRAM IF NOT THERE ALREADY. 
;KEEP UPDATING TEMP PAR REG. 

:SET UP SECOND PROGRAM BANK POINTER. 

6r TO RELOCATE SECTION. 

GET RELOCATION FACTOR. 

SET UP STACK POINTER. 

SET STACK TO RELOCATE PROGRAM. 

ADJUST RO TO RELOCATED "20$ ' ADDRESS. 

GO TO "20$" (RELOCATED). 

CHECK IF PROGRAM IS IN 8K BANK 0 . 

BR IF IN 8K BANK 0. 

RELOCATE THE PROGRAM BAC< TO BANK 0. 

CLEAN UP BEFORE STARTING. 

;RESTART WITH PREVIOUSLY SELECTED PARAMETERS. 



CVMSAB 0-2 MEGAUORD MEMORY EX MACRO YDS. 02 
ACTH HOOKS 
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SEQ 0017 



"23 
"'24 
■'25 
726 

727 000532 

728 000534 
72« 000536 
730 

^31 



* THE FOLLOUING LOCATIONS ARE USED BY THE ABOVE ROUTINE AND MUST BE LOCATED 

* BELOU 1000 TO INSURE CORRECT OPERATION UNDER THE WIDEST VARIETY OF 



000000 
000000 
000000 



:* CIRCUMSTANCES. 
ftELOCF: .WORD 0 
PRGf'AP: .WORD 0 
MMAVA: .WORD 0 



CONTAINS RELOCATION FACTOR (NO MEM MGMT) 

PROGRAM MAP WHERE THE PROGRAM IS LOCATED 

MEMORY MANAGEMENT AVAII ABLE FLAG. 

BIT 0=1 MMU AVAILABLE 

BIT 15 = 1 22 BIT ADDRESSING AVAILABLE 



CVMSAB 0-2 MEGAUORD MEMORY EX MACRO Y05.02 
POWER OOUN AND nP ROUTINES 
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SEQ 0018 



733 



000540 


012737 


000706 


000546 


012737 


000340 


000554 


010046 




000556 


010146 




000560 


v/10246 




000562 


010346 




000564 


010446 




000566 


010546 




000570 


017746 


000334 


000574 


010667 


000112 


000600 


012737 


000612 


000606 


OOOOCO 




000610 


000776 




000612 


012737 


000706 


000620 


016706 


000066 


000624 


005067 


000062 


000630 


005267 


000056 


000634 


001375 




000636 


012677 


000266 


000642 


012605 




000644 


012604 




000646 


012603 




000650 


012602 




000652 


012601 




0C0654 


012600 




000656 


012737 


000540 


000664 


012737 


000340 


000672 


004567 


021054 


000676 


024137 




000700 


012716 




000702 


000300 




000704 


000002 




000706 


000000 




000710 


000776 




000712 


000000 





.SBTTL POUER DOWN AND UP ROUTINES 
SLOWER DOWN ROUTINE 



JPWRON: MOV #$ILLUP.a*PURVEC 

MOV #340,S*^WRVEC^? 

MOV ftO.-CSP) 

MOV Rl. (SP) 

MOV R2. (SP) 

MOV R3. (SP) 

MOV R4,-(SP) 

MOV R5.-(SP) 

MOV aSUR.-(SP) 

MOV SP.$§AVR6 

MOV #$PWRUP,S*PURVEC 
HALT 

BR .-2 



:SET FOR FAST UP 
^'RI0:7 



PUSH RO 
PUSH Rl 
PUSH R2 
PUSH R3 
PUSH R4 
PUSH 
PUSH 
SAVE 
.•SET 



R5 



ON 
ON 
ON 
ON 
ON 
ON 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



SSUR ON STACK 
SP 

UP VECTOR 



:;HANG UP 

: POWER UP ROUTINE 



iPWRUP; 



1$: 



$PURMG 
$PWRAO 
$ILLUP 
$SAVR6 



MOV 
MOV 
CLR 
INC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
.WORD 
MOV 
.WORD 
RTI 
HALT 
BR 
0 



.$ILLUP.3*PWRVEC 
$SAVR6.5p 
$SAVR6 
*SAVR6 
1$ 

(SP)+,aSWR 
(SP)t.R5 
^■|*,R4 
I + .R3 
._ J+.R2 
:SP)*.R1 
(SP)+.RO 
#$PWR0N.8#PWRVEC 
«40,S*PWRVEC*2 
R5. JPRINT 
PWftMSG 
CPOt.CSP) 

restaAt 



-2 



(SP 
(SP 
(SP 

(r 



iSET FOR FAST DOWN 
dET SP 

WAIT LOOP FOR THE TTY 
WAIT FOR THE INC 
OF WORD 

INTO aSWR 
INTO R5 
INTO R4 
INTO R3 
INTO R2 
INTO Rl 
INTO RO 

.SET UP THE POWER DOWN VECTOR 
:^RI0:7 

GO PRINT OUT THE FOLLOWING MESSAGE. 
POWER FAIL MESSAGE POINTER 
RESTART AT RESTART 
RESTART ADDRESS 

THE POWER UP SEQUENCE WAS STARTED 
BEFORE THE POWER DOWN WAS COMPLETE 
PUT THE SP HERE 



POP STACK 
POP STACK 
POP STACK 
POP STACK 
POP STACK 
POP STACK 
POP STACK 



CVMSA8 0-2 MEGAUORD MEMORY EX MACRO Y05.02 
COMMON TAGS 
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SEQ 0019 



1231 



001070 

001070 

001072 

001073 

0<}1074 

001076 

001100 

001102 

001104 

001105 

001106 

001110 

001112 

001114 

001116 

001120 

001122 

001124 

001125 

001126 

001130 

001132 

001134 

001136 

001140 

001142 

001144 

001145 

001146 

001147 

001150 
001152 
001154 
001156 
001160 
001162 
001164 
001167 
001170 
001171 
001172 



001070 

000000 
000 
000 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
177570 
177570 
177560 
177562 
177564 
177566 
000 
002 
012 
000 
000004 
000000 
000000 
000000 
000000 
000000 
000000 
207 
000 
077 
015 
012 



001174 

001174 000000 

001176 000000 

001200 000000 

001202 000000 

001204 000000 



377 



000 



.SBTTL COMMON TAGS 

i*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:iUSED IN THE PROGRAM. 
.=1070 



$CMTA6 

.WORD 
$TSTNM: .BYTE 
JERFLG: .BYT_ 
$ICNT: .WORD 



JLPADR 
$LPERR 
$ERTTL 
$ITEMB 
$ERMAX 
$£RRPC 
$GDADR 
$6DA0R 
$6DD''T 
$BDDAT 



.UORD 
.UORD 
.UORD 
.BYTE 
.BYT 
.WORD 
.WORD 
.WORD 
.WORD 
.UORD 
.WORD 
.UORD 
.BYT 
.BYT 
.WORD 
.WORD 



$AUTOB: 
$INTAC: 

SUR: 
DISPLAY 
$TKS: 
$TKB: 
$TPS: 
$TPB: 
$NULL: 
$FILLS 
$FILLC 
$TPFLG 
.REPT 

$TMPO: .WORD 
$TMP1: .WORD 



0 

0 
0 
0 
0 
0 
0 
0 

1 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

DSWR 



WORD ODISP 
177560 
177562 
177564 
177566 
.BYTE 0 
.BYTE 2 
.BYTE 12 
.BYTE 0 
4 



0 
0 
0 
0 



$TMP2' .WORD 
$TMP3: .WORD 
$TIMES: 0 
$ESCAPE:0 

377 $BELL: .ASCIZ <207><377><3775 



:: START OF COh JN TAGS 

CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTES"' ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX. ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTION 
CONTAINS ADDRESS OF 'GOOD' DATA 
CONTAINS ADDRESS OF 'BAD' DATA 
CONTAINS 'GOOD' DAT-J 
CONTAINS 'BAD' DATA 
RESERVED- -NOT TO BE USED 

AUTOMATIC MODE INDICATOR 
INTERRUPT MODE INDICATOR 

ADDRESS OF SWITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBD STATUS 
TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. ADDRESS 
CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS * OF FILLER CHARACTERS REQUIRED 
INSERT FILL CHARS. AFTER A "LINE FEED' 
"TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 

USER DEFINED 
USER DEFINED 
USER DEFINED 
USER DEFINED 

MAX. NUMBER OF ITERATIONS 
ESCAPE ON ERROR ADDRESS 
CODE FOR BELL 



$QUES: 
$CRLF: 
$LF: 

.Sbttl 

;•**** 
.fVEN 

$MAIL: 
$MSGTY 
$FATAL 
$TESTN 
$PASS: 
$DEVCT 



.ASCII /?/ QUESTION MARK 

.ASCII <15> ;:CARRIAGE RETURN 

.ASCIZ <12> ;;LINEFEED 

APT MAILBOX-ETABLE 



.UORD 
.UORD 

.WORD 
.WORD 
.WORD 



AMSGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
PASS COUNT 
DEVICE COUNT 



1^ 

CVMSAB 0-2 HEGAUORD MEMORY EX MACRO Y05.02 
APT MAILBOX-ETABLE 
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SEQ 0020 



001206 
001210 
001212 
001214 
001214 
001215 
001216 
001220 
001222 



000000 
000000 
000000 

000 
000 
000000 
000000 
000000 



001224 
001225 



000 
000 



001226 000000 



001230 
001231 
001232 
001234 
001235 
001236 
001240 
001241 
001242 
001244 
001246 
001250 
001252 
001254 
001256 
001260 
001262 
001264 
001266 
001270 
001272 
001274 
001276 
001300 
001302 
001304 
001306 
001310 
001312 
001314 
001316 
001320 



000 
000 
000000 
000 
000 
000000 
000 
000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
OOOnoO 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



$UNIT: 

$MSGAD: 

$MSGLG- 

$ETABLE: 

$ENV: 

$ENVn: 

$SWPEG: 

U'SWR: 

$CPUCP: 

:* 

;* 

:* 

!* 

;* 

SmAMSI: 

$MTYP1: 

;* 

:* 

;* 

ImADRI: 

jMAMS2 
$MTYP2 
$MADR2 
$MAMS3 
$MTYP3 
$MADR3 
$MAMS4 
$MTYP4 
$MADR4 
$VECT1 
$VECT2 
$BASE 
$DEVM 
JCDWl 
$CDU? 
$DDUO 
$DDU1 
$DDU2 
$DDU3 
$DDU4 
$DDU5 
$DDU6 
$DDW7 
$DDU8 
$DDU9 
$DDU10 
$DDU11 
$DDU12 
$DDW13 
$DDU14 
$DDU15 
$ETEND 
.MEXIT 
.SBTTL 



.WORD 
.UORD 
.UORO 

.BYTE 
.BYTE 
.UORD 
.UORO 
.UORD 



.BYTE 
.BYTE 



.BYTE 
.BYTE 
.UORD 
.BYTE 
BYTE 
JORD 
.BYTE 
.BYTE 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.WORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 



AUNIT 

AMSGAD 

AMSGLG 

AENV 

AENVM 

ASUREG 

AUSUR 

ACPUOP 



AMAMSl 
AMTYPl 



.UORD AMADRl 



AMAMS2 

AMTYP2 

AMADR2 

AMAMS3 

AMTYP3 

AMADR3 

AMAMS4 

AMTYP4 

AMADR4 

AVECTl 

AVECT2 

ABASE 

ADEVM 

ACDUl 

ACDU2 

ADDUO 

ADDUl 

ADDU2 

ADDU3 

AD0U4 

ADDU5 

A0DU6 

ADDU7 

ADDU8 

ADDU9 

ADDUlO 

ADDUll 

ADDU12 

ADDU13 

ADDU14 

ADDU15 



I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
APT ENVIRONMENT TABLE 
ENVIRONMENT BYTE 
ENVIRONMENT MODE BITS 
APT SUITCH REGISTER 
USER SUITCHES 
iiCPU TYPE, OPTIONS 
SITS 15-11=CPU TYPE 

11/04=01 . 11/05=02 . 11/20=03 . 11/40=04. 11/45=05 
11/70=06. PDQ=07.Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY '1ANAGEMENT 
;;HIGH ADDRESS. M.S. BYTE 
.•;MEM. TYPE.BLK#1 
M^M.TYPE BYtE -- (HIGH BYTE) 
900 NSEC C0RE=001 
300 NSEC BIPOLAR =002 
500 NSEC M0S=003 
HIGH A0DRESS.BLK#1 

MEM. LAST ADDft.=3 BYTES. THIS UORD AND LOU OF "TYPE" ABOVE 
HIGH ADDRESS .M.S. BYTE 
MEM. TYPE. BLKi2 
MEM. LAST ADDRESS. BLK#2 
HIGH ADDRESS .M.S. BYTE 
MEM. TYPE. BLK*3 
MEM. LAST ADDRESS. BLK« 
HIGH ADDRESS .M.S. BYTE 
MEM. TYPE. BLKk 
MEM. LAST ADDRESS .BLK*4 
INTERRUPT VECTORh.BUS PRIORITY*! 
INTERRUPT V£CT0R#26US PRI0RITY#2 
JASE ADDRESS OF EQUIPMENT UNDER TEST 
)EVICE MAP 

CONTROLLER DESCRIPTION U0RD#1 



CONTROL 
)EVICE 
)EVICE 
)EVICE 
)EVICE 
)EVICE 
)EVICE 
)EVICE 
JEVICE 
)EVICE 
)EVICE 

)EVICE DESCRIPTOR U0RD#10 
)EVICE DESCRIPTOR U0RD#11 
)EVICE DESCRIPTOR U0RD#12 
)EVICE DESCRIPTOR U0RD#13 
JEVICE DESCRIPTOR U0RD#14 
DEVICE DESLRIPTOR U0R0#15 



,ER DESCRIPTION U0RD*2 
DESCRIPTOR UORD*0 
)ESCRIPTOR U0RD*1 
)ESCRIPTOR U0RD*2 
)ESCRIPTOR U0RD#3 
)ESCRIPTOR U0RD#4 
)ESCRIPTOR U0RD#5 
)ESCRIPTOR U0RD#6 
)ESCRIPT0R U0RD#7 
)ESCRIPT0R U0RD#8 
DESCRIPTOR U0RD#9 



APT PARAMETER BLOCK 



CVMSAB 0 2 MEGAUORD MEMORY EX MACRO Y05.02 
APT PARAMETER BLOCK 
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SEQ 0021 



001320 

000024 
000024 000200 

000044 
000044 001320 

001320 



001320 
001320 
001322 
001324 
001326 
001330 
001332 



001334 

001334 
001340 
001344 
00135C 
001354 
001360 
001364 
001370 
001374 
001400 
001404 
001410 
001414 
001420 
001424 
001430 
001434 
001440 
001444 
001450 
001454 
001460 
001464 
001470 
001474 
001500 
001502 



000000 
001174 
001604 
002260 
000000 
000052 



000031 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
001334 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

.$X=. ;;SAVE CURRENT LOCATION 

.=24 ijSET POWER FAIL TO POINT TO START OF PROGRAM 

200 ::FOR APT START UP 

.=44 POINT TO APT INDIRECT ADDRESS PNTR. 

$APTHDR POINT TO APT HEADER BL0:K 

.=.$X ;: RESET LOCATION COUNTER 

; SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDPll DIAGNOSTIC 
INTERFACE SPEC. 



IaPTHD: 
$HIBTS: 
$MBADR: 
$TSTM: 
$PASTM: 
$UNITM: 



001504 000000 
001506 070032 



.WORD 0 :;TUO HIGH BITS OF 18 BIT MAILBOX ADDR. 

.WORD $MAIL ;;AODRESS OF APT MAILBOX (BITS 0-15) 

.WORD 900. ;;RUN TIM OF LONGEST TEST 

.WORD 1200. ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

•WORD 0. :: ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 

.WORD $ETEND-$mAiL/2 :;LENGTH MAILBOX-ETABLF(WORDS) 
.SBTTl apt STATISTICS TABLE 

iASTAT: 

.REPT 31 

.WORD -1.0 

.WORD -1.0 

.WORD -1.0 

.WORD -1.0 

.WORD -1.0 

.WORD 1,0 

.WORD -1.0 

.WORD -1.0 

.WORD -1.0 

.WORD -1.0 

.WORD -1.0 

.WORD 1.0 

.WORD -1.0 

.WORD -1.0 

.WORD -1.0 

.WORD -1.0 

.WORD -1.0 

.WORD -1.0 

.WORD -1,0 

.WORD -1.0 

.WORD -1,0 

.WORD -1.0 

.WORD -1,0 

.WORD -1,0 

.WORD -1,0 

$ASTEND: -1 
$APTR: $ AST AT 

;*THE FOLLOWING TAGS ARE USER DEFINED 

JVERPC; .WORD 0 ;VIRTUAL PC LOCATION FOR ERROR TYPEOUT ROUTINE ($ERTYP). 

RESRVD: .WORD 070032 jCORE PARITY REG BITS RESERVED FOR FUTURE USE. 

:NOTE: FOR MSll MEMORY WITH PARITY, CHANGE TO 077772. 



L^MSAB 



0-2 MEGAWORD MEMORY EX MACRO Y05.G2 Monday 23 Dec 85 08:45 Page 5-3 





TARI F 


001510 


000000 


001512 


000000 


001514 




001514 


000000 


001516 


000000 


001520 


000000 


001522 


000000 


001524 


000000 


001526 


000000 


001530 


000000 


001532 


000000 


001534 


000000 


001536 


000000 


001540 


000000 

VV V WW 


001542 


000000 


001544 


000000 


001546 


000000 


001550 


000000 


001552 


000000 


001554 




001554 


000000 


001556 


000000 


001560 


A A A A A A 

000000 


001562 


000000 


001564 


000000 


001566 


000000 


001570 


A A A A A A 

000000 


001572 


A A A A A A 

000000 


001574 


000000 


001576 


000000 


001600 


000000 

VW VV VV 


001602 


000000 


AA 1 £ Ail 

001604 


AA AA AA 

000000 


001606 


000000 


001610 


000000 


001612 


000000 


001614 





SEQ 0022 



001614 
001616 
001620 
001622 
001624 
001626 
001630 
001632 
001634 
001636 
001640 
001642 
001644 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



LMAD: 
LDDISP: 

MEMMAP: 



TSTMAP: 



SAVTST: 



.WORD 
.UGRD 



.UORD 
.UORD 
.UORD 
.UORD 
.WORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.WORD 



.UORD 
.WORD 
.UORD 
.UORD 
.UORO 
.UORD 
.UORO 
.UORD 
.UORO 
.UORD 
.UORD 
.UORD 
.UORO 
.UORO 
.UORD 
.UORD 



.UORO 
.UORD 
.UORD 
.UORO 
.UORD 
.UORD 
.UORO 
.UORO 
.UOPD 
.UORD 
.UORD 
.UORD 
.WORD 



0 
0 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



;LAST CONTIGUOUS MEMORY ADDRESS (♦2) 
: CONTAINS DISPLAY REGISTER IMAGE 

; MEMORY MAP - EACH BIT CORRESPONDS TO 8K 



1ST UORD MAP. 
2ND UORD MAP. 
3RD UORD MAP. 
4TH UORD MAP. 
5TH UORO MAP. 
6TH UORD MAP. 
7TH UORD MAP. 
8TH UORD MAP. 
9TH UORD MAP. 
lOTH UORD MAP. 
IITH UORD MAP. 
12TH UORD MAP. 
13TH UORD MAP. 
14TH UORO MAP. 
15TH UORD MAP. 
16TH UORD MAP. 



. .128KU 
..256KU 
. .384KU 
. .512KU 
. .640KU 
. .768KU 
. .896KU 
. 1024KW 
. 1152KU 
. 1280KU 
.1408KU 
.1536KU 
. 1664KU 
.1792KU 
. 1920KU 
.2048KU 



JEST MAP - UHICH BANKS ARE SELECTED FOR TEST. 



1ST UORD MAP. 
2ND UORD MAP. 
3RD UORD MAP. 
4TH UORO MAP. 
5TH UORD MAP. 
6TH WORD MAP. 
7TH UORD MAP. 
8TH UORD MAP. 
9TH UORD MAP. 
lOTH UORO MAP. 
IITK UORO MAP. 
12TH UORD MAP. 
13TH UORD MAP. 
14TH UORD MAP. 
15TH UORD MAP. 
16TH UOuD MAP. 



..128KU 
..256KW 
. .384KU 
. .512KU 
. .640KU 
. .768KU 
..8%KU 
.1024KW 
.1152KU 
. 1280KU 
.1408KU 
.1536KU 
. 1664KU 
.1792KU 
. 1920KU 
.2048KU 



; SAVED TEST MAP - USED DURING FIRST PASS TO ONLY 
; TEST EACH BANK ONCE. 



1ST UORD MAP. 
2ND UORD MAP. 
3RD WORD MAP. 
4TH UORD MAP. 
5TH UORD MAP. 
6TH UORD MAP. 
7TH UORO MAP. 
8TH UORO MAP. 
9TH UORD MAP. 
lOTH UORO MAP. 
IITH UORO MAP. 
12TH WORD MAP. 
13TH WORD MAP. 



..128KW 
. .256KU 
. .384KU 
..512KU 
. .640KW 
. .768KW 
..896KW 
.1024KW 
.1152KW 
.1280KU 
.1408KW 
.1536KW 
.1664KU 



<2 
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001646 


000000 


.UORD 


0 


001650 


000000 


.UORD 


0 


001652 


000000 


.WORD 


0 


001654 




PMEMAP: 




001654 


000000 


.UORD 


0 


001656 


000000 


.UORD 


0 


001660 


000000 


.UORD 


0 


001662 


000000 


.UORD 


0 


001664 


000000 


.UORD 


0 


001666 


000000 


.UORD 


0 


001670 


000000 


.UORD 


0 


001672 


000000 


.UORD 


0 






unQD 

. WUnU 


A 


001676 


000000 


.UORD 


0 




AAAAAA 




A 
\J 


001702 


000000 


.UORD 


0 


001704 


oooooc 


.UORD 


0 


001706 


000000 


.UORD 


0 


001710 


000000 


.UORD 


0 


001712 


000000 


.UORD 


0 


001714 




BITPT: 




001714 


000000 


.UORD 


0 


001716 


000000 


.UORD 


0 


001720 


000000 


.UORD 


0 


001722 


000000 


.UORD 


0 


0C1724 


000000 


.UORD 


0 


001726 


000000 


.UORD 


0 


001730 


000000 


.UORD 


0 


001732 


000000 


.UORD 


0 


001734 


000000 


.UORD 


0 


001736 


000000 


.UORD 


0 


001740 


000000 


.UORD 


0 


001742 


000000 


.UORD 


0 


001744 


000000 


.UORD 


0 


001746 


000000 


.UORD 


0 


001750 


000000 


.UORD 


0 


001752 


000000 


.UORD 


0 



14TH UORD MAP..1792KU 
IbTH UORD MAP..1920KU 
16TH UORD MAP..2048KU 

sPAPITY MAP - UHIwH BANKS HAVE MEMORY PARITY 



1ST 
2ND 
3RD 
4TH 
5TH 
6TH 
7TH 
8TH 
9TH 

lOTH UORD MAP. 
UTH UORD MAP. 
12TH UORD MAP. 
13TH UORD MAP. 
14TH UORD MAP. 
15TH UORD MAP. 
16TH UORD MAP. 



UORD MAP. 
UORD MAP. 
UORD MAP. 
UORD MAP. 
UORD MAP. 
UORD MAP. 
UORD MAP. 
UORD MAP. 
UORD MAP. 



..128KU 
..256KU 
. .384KU 
. .512KU 
. .640KU 
. .768KU 
. .896KU 
.1024KU 
.1152KU 
.1280KU 
. 1408KU 
.1536KU 
.1664KU 
. 1792KU 
.1920KU 
.2048KU 



; POINTER TO CURRENT 8K BANK OF MEMORY 



1ST 
2ND 
3RD 
4TH 
5TH 
6TH 
7TH 
8TH 
9TH 

lOTH UORD MAP 
UTH UORD MAP. 
12TH UORD MAP. 
13TH UORD MAP. 
14TH UORD MAP. 
15TH UORD MAP. 
16TH UORD MAP. 



UORD MAP. 
UORD MAP. 
UORD MAP. 
UORD HAP. 
UORD MAP. 
UORD MAP. 
UORD MAP. 
UORD MAP. 
UORD MAP. 



. .128KU 
. .256KU 
. .384KU 
. .512KU 
. .640KU 
. .768KU 
. .896KU 
. 1024KU 
.1152KU 
. 1230KU 
.1408KU 
.1536KU 
.1664KU 
.1792KU 
. 1920KU 
.2048KU 



001754 000000 



MMORE: .UORD 



001756 
001757 
001760 



001764 
001766 
001770 



000 
000 
000 



001762 000000 



000000 
000004 
000000 



SELFLG: 
FLAG8K: 
OEFLG: 

FSTADR: 



.CONST: 

UUP: 

TEMP: 



.BYTE 
.BYTE 
.BYTE 
.EVEN 
.UORD 



0 
0 
0 



.UORD 0 
.UORD 4 
.UORD 0 



LOOP ADDRESS FOR MULTIPLE BLOCK TESTING. 
SET UP BY "INITMM" AND "INITDN" ROUTINES. 
USED BY "MMUP" AND "MMDOUN" ROUTINES. 
OPERATOR SELECTED PARAMETERS FLAG. (SA=204) 
8K BLOCK INDICATOR. USED IN "INITMM" AND "MMUP 
UDD/EVEN FLAG USED IN PARITY MEMORY BYTE TEST. 

FIRST VIRTUAL ADDRESS TO BE TESTED. 
FIRST ADDRESS IS USER SELECTABLE. 
TO BREAK TO 'MMUP" TO FIND LAST ADDRESS. 
USER SELECTABLE CONSTANT DATA. 
URITE URONG PARITY COMMAND 
TEMPORARY STORAGE 



12 
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SEQ 0024 



001772 000000 

001774 000000 

001776 000000 

002000 000000 

002002 000000 



002004 
002004 
002006 
002010 
002012 
002014 
002016 
002020 
002022 
002024 
002026 
002030 
002032 
002034 
002036 
002040 



001070 
001514 
001614 
001554 
001654 
001714 
001506 
002272 
003372 
010520 
002244 
015632 
003434 
000010 
012506 



TEMPI: .WORD 0 

FLG30K: .WORD 0 

LSIFLG: .UORD 0 

KDJDA: .WORD 0 

PLUSl: .UORD 0 



TEMPORARY STORAGE 

30K MEMORY FLAG 

LSI-11 PROCESSOR FLAG 

:VK KDJll-DA (11/53) CPU FLAG 

6aTA BIT USED FOR FIRST ENTRY INTO 

MMUP AND MMDOUN ROUTINES. 



.STACK: $CMTAG 

.MEMMAP: 

.SAVTST: 

.TSTMAP: 

.PMEMAP: 

.BITFT: BITPT 

.RESRV: RESRVD 



002042 


001106 


001110 


001114 


6tl: 


002050 


001116 


000000 






002054 


001504 


001106 


001110 


DT2: 


002062 


001114 


001116 


000000 




002070 


001504 


001106 


001110 


DT12 


002076 


001114 


000000 






002102 


001504 


001106 


001150 


DT14 


002110 


001110 


000000 






002114 


001504 


001106 


OOlllC 


DT15 


002122 


001150 


001114 


001116 




002130 


000000 








002132 


001504 


001106 


001150 


DT21 


002140 


001110 


001114 


001116 




002146 


000000 








002150 


001504 


001106 


001110 


DT23 


002156 


001112 


001114 


001116 




002164 


000000 








002166 


001504 


001106 


001112 


DT24 


002174 


000000 








002176 


001504 


001106 


001112 


DT25 


002204 


001150 


001152 


000000 




002212 


001504 


001106 


001150 


DT26 


002220 


001152 


000000 






002224 


001150 


001152 


001110 


DT30 


002232 


001116 


000000 






002236 


001156 


000000 




DT31 



;* RELATIVE ADDRESSING TABLE. 

;* THE FOLLOWING LOCATIONS ARE MODIFIED AT RELOCATION TIME TO ALLOW 
;* RELATIVE ADDRESSING TO GET THE RELOCATED VALUE OF THE ARGUMENT TAGS. 
• **************************************************************** 

ftAOTAB: 

; STACK POINTER INITIAL ADDRESS. 
MEMMAP jAUTO. MEMORY SIZING MAP 
SAVTST ; SIZED MEMORY MAP FROM AUTO. OR USER 
TSTMAP ;MEMORY MAP OF 8K BANKS TO TEST 
PMEMAP ; PARITY MAP OF 8K BANKS 

;BIT POINTER FOR BLOCK UNDER TEST 
; PARITY REGISTER RESERVED BIT MASK ADDRESS. 
.MPRO: MPRO : MEMORY PARITY REGISTER TABLE ADDRESS. 

.MPRX: MPRX ; MEMORY PARITY REGISTER EXIST TABLE ADDRESS. 

.PBTRP: PBTRP : PARITY BYTE TEST TRAP ROUTINE ADDRESS 

.MPPAT: MPPATS jMEMORY PARITY PATTERN TABLE ADDRESS. 

.PESRV: PESRV ; MEMORY PARITY ERROR TRAP ROUTINE ADDRESS. 

.ERRTB: $ERRTB : ERROR TYPEOUT TABLE PONTER. 

.EIGHT: 8. ; DECIMAL TYPE ROUTINE COUNT DESIGNATOR. 

.TST32: TST32 .-SCOPE ABORT ADR FOR WHEN NO MEM AVA FOR tesT. 

;* DATA CONTAINERS FOR ERROR PRINTOUT. 

$ERRPC . $GDADR . $GDD AT . $BDDAT . 0 

$VERPC . $tRRPC . $GDADR . $GDDAT , $BDDAT ,0 

$VERPC . iERRPC . $GDADR . $GDDAT . 0 

$VERPC . $ERRPC. $TMP0. JGDADR .0 

$VERPC . $ERRPC . $GDADR . $TMPO . $GDDAT . $BDDAT , 0 



DT21 : $VERPC . $ERRPC . $TMPO. JGDADR . $GDDAT . $BDDAT .0 



DT23 : $ VERPC . $ERRPC . $GDADR . $6DADR . $GDDAT . $6DDAT . 0 

$VERPC.$ERRPC.$BDADR,0 
$ VERPC . $ ERRPC . $BDADR . $TMPO . $TMPi .0 
$ VERPC. JERRPC. $TMPO. $TMP1.0 
$TMPO . JTMPl . $GDADR . $BDDAT . 0 
$TMP3.0 
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SEQ 0025 



002242 177777 



002244 
002246 
002250 
002252 
002254 
002256 
002260 
002262 
002264 
002266 



125325 
152652 
052452 
025125 
1C2070 
072527 
177777 
107030 
152525 
000000 



002270 000000 



002272 
002274 
002276 
002300 
002302 
002304 
002306 
002310 
002312 
002314 
002316 
002120 
(^02^?2 
OOoc* 
002326 
002330 
002332 
002334 
002336 
002340 
0023''2 
002344 
002346 
00235C 



172101 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
OOOOOv 
000000 
000000 
OoOOOO 
172103 
000000 
000000 
000000 
000000 
000000 



.UORD 



; TABLE TERMINATOR. 



SBTTL MEMORY PARITY PATTERNS TABLE 

• ''ft ********************************* A******** ****** ****** 

THl FOLLOWING ARE THE PARITY PATTERNS EXERCISED THRUOUT MEMORY 

;*********************************«******^«««^«*************«*tt 



MPPATS: 125325 
152652 
052452 
025125 
102070 
072527 
177777 
107030 
152525 
0 

MPEND: 0 



EVEN.ODD 

ODD. to 

EVEN.ODD 

ODDiVEN 

EVEN.EVEN 

ODD.fiDD 

EVEN.EVEN 

ODD, ODD 

ODD.EVEN 

EXTftA PATTERN HOLDER FOR 
FUTURE USE 
TABLE TERMINATOR 



SBTTL MEMORY PARITY REGISTER ADDRESS TABLE 

////////////////////////////////////////////////////////////////////// 
THE FOLLOWING REPRESENTS THE MEMORY PARITY REGISTER ADDRESS TABLE 
FROM WHICH PARITY MEMORY IS ADDRESSED L CONTROLLED: 

THE LEAST SIGNIFICANT BIT IN THE DEVICE ADDRESS IS SET TO A ONE (1) 
IF THE CONTROL IS FOUND NOT TO BE PRESENT. THE MEMORY PRESENT UNDER 
THE CONTROL OF EACH CONTROLLER IS REPRESENTED BY 16 WORDS FOLLOWING 
THE DEVICE ADDRESS. FOR N0N-22BIT MEMORY ONLY 1 UORD IS USED 
(EACH BIT REPRESENTING A 8K BLOCK. I.E. FIRST WORD BITO = 0 - 8K. 
BIT 3 » 24-28KW 16 BIT ADDRESSING 

BIT 15 ' 120-124KW 18 BIT ADDRESSING 

////////////////////////////////////////////////////////////////////// 



MPRO: 



MPRl: 



172100 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.UORD 
.UORD 
.WORD 
.WORD 
172102 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



♦ 1 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

♦ 1 

0 
0 
0 
0 
0 



1ST WORD CONTROL MAP... 128KW 
2ND WORD CONTROL MAP... 256KW 
3RD WORD CONTROL MAP.. .384KW 
4TH WORD CONTROL MAP... 512KW 
5TH WORD CONTROL MAP... 640KW 
6TH WORD CONTROL MAP... 768KW 
7TH WORD CONTROL MAP... 896KU 
8TH WORD CONTROL MAP..1024KU 
9TH WORD CONinOL MAP..1152KW 
lOTH WORD CONTROL MAP..1280KW 
IITH UORD CONTROL MAP..1408KU 
12TH UORD CONTROL MAP..1536KU 
13TH UORD CONTROL MAP..1664KU 
14TH UORD CONTROL MAP..1792KW 
15TH WORD CONTROL MAP..1920KU 
16TH UORD CONTROL MAP..2048KU 
MASK FOR UNUSED PARITY CSR BITS 
PARITY STATUS REGISTER 
1ST UORD CONTROL MAP . . . 128KW 
2ND WORD CONTROL MAP... 256KU 
3RD WORD CONTROL MAP. . .384KW 
4TH UORD CONTROL MAP... 512KU 
5TH UORD CONTROL MAP...640KU 



N2 
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SEQ 00?6 



002352 

002354 

002356 

002360 

002362 

002364 

002366 

002370 

002372 

002374 

002376 

002400 

002402 

002404 

002406 

002410 

002412 

002414 

002416 

002420 

002422 

002424 

002426 

002430 

002432 

002434 

002436 

002440 

002442 

002444 

002446 

002450 

002452 

002454 

002456 

002460 

002462 

002464 

002466 

002470 

002472 

002474 

002476 

002300 

002502 

002504 

002506 

002510 

002512 

002514 

002516 

002520 

002522 

002524 

002526 

002530 

002532 



000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

172105 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

172107 

000000 

000000 

000000 

000000 

000000 

000000 

cooooo 

000000 

ooooo 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
172111 
000000 
000000 
000000 

ooooco 

000000 
000000 
000000 
000000 



MPR2: 



MPR3: 



MPR4; 



.UORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
172104 4l 
.UORD 0 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
172106 *1 
.UORD 0 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 

.ur^^ 

.UC'^ 

172110 a 
.WORD 0 
.UORD 
.UORD 
.UCRD 
.UORD 
.UORD 
.UORD 
.UORD 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



0 
0 
0 
0 
0 
0 
0 



6TH UORD CONTROL MAP . . 
7TH UORD CONTROL MAP.. 
8TH UORD CONTROL MAP., 
9TH UORD CONTROL MAP.. 
lOTH UORD CJNTROL MAP.. 
IITH UORD CONTROL MAP.. 
12TH UORD CONTROL MAP.. 
13TH UORD CONTROL MAP.. 
14TH UORD CONTROL MAP . . 
15TH UORD CONTROL MAP . . 
16TH UORD CONTROL MAP . . 
MASK FOR UNUSED PARITY 
PARITY STATUS REGISTER 
1ST UORD CONTROL MAP., 
2ND UORD CONTROL MAP., 
3RD UORD CONTROL MAP . , 
4TH UORD CONTROL MAP., 
5TH UORD CONTROL MAP., 
6TH UORD CONTROL MAP., 
7TH UORD CONTROL MAP . , 
8TH UORD CONTROL MAP . , 
9TH hORD CONTROL MAP., 
10 fH UORD CC^'TROL MAP., 
IITH h'CPn CONTkn' MAP., 
12TH UORD CONTROL ri.«P., 
13TH UORD CONTROL MAP., 
14TH UORD CONTROL MAP., 
15TH UORD CONTROL MAP., 
16TH UORD CONTROL MAP., 
MASK FOR UNUSED PARITY 
PARITY STATUS REGISTER 
1ST UORD CONTROL MAP., 
2N0 UORD CONTROL MAP. 
3RD UORD CONTROL MAP., 
4TH UORD CONTROL MAP., 
5TH UORD CONTROL MAP., 
6TH UORD CONTROL MAP., 
7TH UORD CONTROL MAP., 
8TH UORD CONTROL MAP., 
9TH UORD CONTROL MAP . , 
lOTH UORD CONTROL MAP., 
IITH UORD CONTROL MAP., 
12TH UORD CONTROL MAP., 
13TH UORD CONTROL MAP . , 
14TH UORD CONTROL MAP., 
15TH UORD CONTROL MAP., 
16TH UORD CONTROL MAP.. 
MASK FOR UNUSED PARITY 
PARITY STAUS REGISTER 
1ST UORD CONTROL MAP., 
2N0 UORD CONTROL MAP., 
3RD UORD CONTROL MAP.. 
4TH UORD CONTRa MAP.. 
5TH UORD CONTROL MAP.. 
6TH UORD CONTROL MAP.. 
7TH UORD CONTROL MAP.. 
8TH UORD CONTROL MAP., 



.768KU 
.896KU 
1024KU 
1152KU 
1280KU 
1408KU 
1536KU 
1664KU 
1792KU 
1920KU 
2048KU 
CSR BITS 

.128KU 
.256KU 
.384KU 
.512KU 
.640KU 
.768KU 
.896KU 
1024KU 
1152KU 
1280KU 
1408KU 
1536KU 
1664KU 
17'>5i^U 
1920KU 
2048KU 
CSR BITS 

128KU 
.256KU 
.384KU 
.512KU 
.640KU 
.768KU 
.896KU 
1024KU 
1152KU 
1280KU 
1408KU 
1536KU 
1664KU 
1792KU 
1920KU 
2048KU 
CSR BITS 

.128KU 
.256KU 
.384KU 
.512KU 
.640KU 
. 768KU 
.896KU 
1024KU 



CVMSAB 0 2 MEGAMORD MEMORY EX MACRO Y05.02 
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SEQ 0027 



002534 

002536 

002540 

002542 

002544 

002546 

002550 

002552 

002554 

0<D2556 

002560 

002562 

002564 

002566 

002570 

002572 

002574 

002576 

002600 

002602 

002604 

002606 

002610 

002612 

002614 

002616 

002620 

002622 

002624 

0C2626 

002630 

002632 

002634 

002636 

002640 

002642 

002644 

002646 

002650 

002652 

002654 

002656 

002660 

002662 

002664 

002666 

002670 

002672 

002674 

002676 

002700 

002702 

002704 

002706 

002710 

002712 

002714 



WWW 


unon 
• WUHl; 


rt 

0 


WWW 


UrtDA 


rt 

u 


Art /V\ Art 

WWW 


1 inon 
.UUKU 


rt 

0 


rtrtAftrtA 
WWW 


unon 


rt 

y 


■V\ Art Art 
WWW 


uAon 


rt 
u 


Art Art Art 
WWW 


unoA 


rt 
y 


Artrtrtrtrt 
WWW 


uAon 

. M'JKLi 


rt 
yj 


Art Art Art 
WWW 






Art Art Art 
WWW 


uAon 


rt 


1 731 1 7 


MDD'\ • 1 7D1 1 0 
nrnj: iiciic 


♦ i. 


Art Art Art 


unon 


rt 


Art Art Art 


uncn 


rt 


Artrtrtrtrt 


unon 


rt 


Artrtrtrtrt 


uncn 


rt 


rtrtArtrtrt 


unon 




VA/ WW 






\f\J\AJ\J\} 


unpn 


A 
V 


Artrtrton 

vvvvwv 




A 
V 


www 




A 

V 


000000 
www 


UORO 


A 
v 


WVA/ W 


UORO 


A 

V 


000000 

VV w w 


UORO 


A 

V 


000000 


UORO 


A 

V 


000000 
www 


UORO 


A 

V 


000000 

VA/ WW 




n 
\j 


000000 

w w w 


UORD 


0 


000000 

www 


UORD 


A 

V 


1721 15 


MPR6- 172114 

'irnv* x'cxx^ 


+ 1 


000000 
www 




A 

V 


000000 
www 


UORD 


A 

V 


000000 

VA/ W W 


unpn 


A 

V 


0000 on 

V/V/vvV/v 


unpn 

. nunu 


A 

V 


000000 

WV/V/\/V/v 


. nunu 


n 


Artrtrtrtrt 

VVVVV/\/ 


UORO 


A 
V 


000000 

WWW 


UORD 
• nunu 


A 
v 


Artrtrtrtrt 

VV/V/vV/v 


UORO 
. nunu 


A 

V 


000000 


UORD 
. nunu 


A 

V 


000000 
www 


UORD 
• nunu 


A 
\J 


000000 
www 


UORO 
. nunu 


A 
v^ 


000000 
www 


UORO 
* nunu 


A 
\J 


000000 
www 


UORD 

• nunu 


A 


OOOOOCi 


UORD 
• nunu 


A 

V 


000000 
www 


UORO 
• nunu 


0 


000000 
www 


UORD 
. nunu 


A 
v^ 


000000 

www 


UORD 

a nunu 


0 


172117 

X • CX X • 


MPR7- 172116 


^ X 


000000 

www 


UORO 

• nunu 


0 


000000 
www 


UORO 

• nunu 


A 

V 


000000 


.UORO 


0 


000000 


.UORO 


0 


000000 


.UORD 


0 


000000 


.UORO 


0 


000000 


.UORD 


0 


000000 


.UORD 


0 


000000 


.UORO 


0 


000000 


.UORD 


0 


000000 


.UORD 


0 



9TH UORO CONTROL MAP..1152KU 
lOTH UORO CONTROL MAP..1280KU 
IITH UORO CONTROL MAP..1408KU 
12TH UORO CONTROL MAP..1536KU 
13TH UORD CONTROL MAP..1664KU 
14TH UORD CONTROL MAP..1792KU 
15TH UORD CONTROL MAP.,1920KU 
16TH UORO CONTROL MAP..2048KU 
MASK FOR UNUSED PARITY CSR BITS 
PARITY STATUS REGISTER 
1ST UORO CONTROL MAP...128KU 
2ND UORD CONTROL MAP... 256KU 
3RD UORD CONTROL MAP... 384KU 
4TH UORD CONTROL MAP... 512KU 
5TH UORD CONTROL MAP...640KU 
6TH UORD CONTROL MAP... 768KU 
7Th UORD CONTROL MAP... 896KU 
8TH UORD CONTROL MAP.. 1024KU 
9TH UORD CONTROL MAP.. 1152KU 
lOTH UORD CONTROL MAP..1280KU 
IITH UORD CONTROL MAP..1408KU 
12TH UORD CONTROL MAP..1536KU 
13TH UORO CONTROL MAP..1664KU 
14TH UORO CONTROL MAP..1792KU 
15TH UORO CONTROL MAP..1920KU 
16TH UORD CONTROL MAP..2048KU 
MASK FOR UNUSED PARITY CSR BITS 
PARITY STATUS REGISTER 
1ST UORO CONTROL MAP... 128KU 
2ND UORD CONTROL MAP... 256KU 
3RD UORD CONTROL MAP... 384KU 
4TH UORD CONTROL MAP... 512KU 
5TH UORO CONTROL MAP...640KU 
6TH UORD CONTROL MAP... 768KU 
7TH UORO CONTROL MAP... 896KU 
8TH UORO CONTROL MAP.. 1024KU 
9TH UORD CONTROL MAP..1152KU 
lOTH UORD CONTROL MAP..1280KU 
IITH UORD CONTROL MAP..1408KU 
12TH UORO CONTROL MAP..1536KU 
13TH UORD CONTROL MAP..1664KU 
14TH UORD CONTROL MAP..1792KU 
15TH UORD CONTROL MAP..1920KU 
16TH UORD CONTROL MAP..2048KU 
MASK FOR UNUSED PARITY CSR BITS 
PARITY STATUS REGISTER 
1ST UORD CONTROL MAP...128KU 
2N0 UORD CONTROL MAP... 256KU 
3RD UORD CONTROL MAP... 384KU 
4TH UORD CONTROL MAP... 512KU 
5TH UORO CONTROL MAP...640KU 
6TH UORD CONTROL MAP.. .768KU 
7TH UORD CONTROL MAP...896KU 
8TH UORO CONTROL MAP . . 1024KU 
9TH UORD CONTROL MAP.. 1152KU 
lOTH UORD CONTROL MAP..1280KU 
IITH UORD CONTROL MAP..1408KU 
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002716 


000000 


.UORD 


0 


002720 


000000 


.UORD 


0 


002722 


000000 


.UORD 


0 


002724 


000000 


.UORD 


0 


002726 


000000 


.UORD 


0 


002730 


000000 


.UORD 


0 


002732 


172121 


MPR8: 172120 


♦1 


002734 


000000 


.UORD 


0 


002736 


000000 


.UORD 


0 


0'32740 


000000 


.UORD 


0 


002742 


000000 


.UORD 


0 


002744 


000000 


.UORD 


0 


002746 


000000 


.UORC 


0 


002750 


000000 


.UORD 


0 


002752 


000000 


.UORD 


0 


002754 


000000 


.UORD 


0 


002756 


000000 


.UORD 


0 


002760 


000000 


.UORD 


0 


002762 


000000 


.UORD 


0 


002764 


000000 


.UORD 


0 


002766 


000000 


.UORD 


0 


002770 


000000 


.UORD 


0 


002772 


000000 


.UORD 


0 


002774 


000000 


.UORD 


0 


002776 


172123 


MPR9: 172122 


+1 


003000 


000000 


.UORD 


0 


0C3002 


000000 


.UORD 


0 


003004 


000000 


.UORD 


0 


003006 


000000 


.UORD 


0 


OC3010 


000000 


.UORD 


0 


003012 


000000 


.UORD 


0 


003014 


000000 


.UORD 


0 


003016 


000000 


.UORD 


0 


003020 


000000 


.UORD 


0 


003022 


000000 


.UORD 


0 


003024 


000000 


.UORD 


0 


003026 


000000 


.UORD 


0 


003030 


000000 


.UORD 


0 


003032 


000000 


.UORD 


0 


003034 


000000 


.UORD 


0 


003036 


000000 


.UORD 


0 


003040 


000000 


.UORD 


0 


003042 


172125 


MPRIO: 172124 


♦1 


003044 


000000 


.UORD 


0 


003046 


000000 


.UORD 


0 


003050 


000000 


.UORD 


0 


003052 


000000 


.UORD 


0 


003054 


000000 


.UORD 


0 


003056 


000000 


.UORD 


0 


003060 


AA aA AA 

000000 


.UORD 


A 

0 


003062 


000000 


.UORD 


0 


003064 


000000 


.UORD 


0 


003066 


000000 


.UORD 


0 


003070 


000000 


.UORD 


0 


003072 


000000 


.UORD 


0 


003074 


000000 


.UORD 


0 


003076 


000000 


.UORD 


0 



12TH UORD CONTROL MAP., 
13TH UORD CONTROL MAP. , 
14TH UORD CONTROL MAP.. 
15TH UORD CONTROL MAP.. 
16TH UORD CONTROL MAP.. 
MASK FOR UNUSED PARITY 
PARITY STATUS REGISTER 
1ST UORD CONTROL MAP., 
2ND UORD CONTROL MAP.. 
3RD UORD CONTROL MAP., 
4TH UORD CONTROL MAP., 
5TH UORD CONTROL MAP., 
6TH UORD CONTROL MAP., 
7TH UORD CONTROL MAP., 
8TH UORD CONTROL MAP., 
9TH UORD CONTROL MAP., 
lOTH UORD CONTROL MAP., 
IITH UORD CONTROL MAP., 
12TH UORD CONTROL MAP., 
13TH UORD CONTROL MAP., 
14TH UORD CONTROL MAP., 
15TH UORD CONTROL MAP., 
16TH UORD CONTROL MAP., 
MASK FOR UNUSED PARITY 
PARITY STATUS REGISTER 
1ST UORD CONTROL MAP., 
2ND UORD CONTROL MAP., 
3RD UORD CONTROL MAP., 
4TH UORD CONTROL MAP., 
5TH UORD CONTROL MAP., 
6TH UORD CONTROL MAP., 
7TH UORD CONTROL MAP., 
8TH UORD CONTROL MAP., 
9TH UORD CONTROL MAP., 
lOTH UORD CONTROL MAP., 
IITH UORD CONTROL MAP., 
12TH UORD CONTROL MAP., 
13TH UORD CONTROL MAP., 
14TH UORD CONTROL MAP., 
15TH UORD CONTROL MAP., 
16TH UORD CONTROL MAP., 
MASK FOR UNUSED PARITY 
PARITY STATUS REGISTER 
1ST UORD CONTROL MAP., 
2ND UORD CONTROL MAP.. 
3RD UORD CONTROL MAP.. 
4TH UORD CONTROL MAP., 
5TH UORD CONTROL MAP.. 
6TH UORD CONTROL MAP.. 
7TH UORD CONTROL MAP., 
8TH UORD CONTROL MAP.. 
9TH UORD CONTROL MAP.. 
lOTH UORD CONTROL MAP.. 
IITH UORD CONTROL MAP.. 
12TH UORD CONTROL MAP.. 
13TH UORD CONTROL MAP.. 
14TH UORD CONTROL MAP.. 



1536KU 
1664KU 
1792KU 
1920KU 
2048KU 
CSR BITS 

.128KU 
.256KU 
.384KU 
.512KU 
.640KU 
.768KW 
.896KU 
1024KU 
1152KW 
1280KU 
140dKU 
1536KU 
1664KU 
1792KU 
1920KU 
2048KU 
CSR BITS 

.128KU 
.256KU 
.384KU 
.512KU 
.640KU 
.768KU 
.896KU 
1024KU 
1152KU 
1280KU 
1408KU 
1536KU 
1664KU 
1792KU 
1920KU 
2048KU 
CSR BITS 

.128KU 
.256KU 
.384KU 
.512KU 
.640KU 
.768KU 
.896KU 
1024KU 
1152KU 
1280KU 
1408KU 
1S36KU 
1664KU 
1792KU 
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SEQ 0029 



003100 


000000 


.UORD 


0 


003102 


000000 


.UORD 


0 


003104 


000000 


.UORD 


0 


003106 


172127 


MPRll: 172126 


^1 


003110 


000000 


.WORD 


0 


003112 


000000 


.UORD 


0 


003114 


000000 


.UORD 


0 


003116 


000000 


.WORD 


0 


003120 


000000 


.WORD 


0 


003122 


000000 


.WORD 


0 


003124 


000000 


.UORD 


0 


003126 


000000 


.UORD 


0 


003130 


000000 


.WORD 


0 


003132 


000000 


.UORD 


0 


003134 


000000 


.UORD 


0 


003136 


000000 


.UORD 


0 


003140 


000000 


.UORD 


0 


003142 


000000 


.UORD 


0 


003144 


000000 


.UORD 


0 


003146 


000000 


.UORD 


0 


003150 


000000 


.UORD 


0 


003152 


172131 


MPR12: 172130 


^1 


003154 


000000 


.UORD 


0 


003156 


000000 


.UORD 


0 


003160 


000000 


.UORD 


0 


003162 
003164 


000000 


.UORD 


0 


000000 


.UORD 


0 


003166 


000000 


.UORD 


0 


003170 


000000 


.UORD 


0 


0C3172 


000000 


.UORD 


0 


003174 


000000 


.UORD 


0 


003176 


ooooco 


.UORD 


0 


003200 


000000 


.UORD 


0 


003202 


000000 


.UORD 


0 


003204 


000000 


.UORD 


0 


003206 


000000 


.UORD 


0 


003210 


000000 


.UORD 


0 


003212 


000000 


.UORD 


0 


003214 


000000 


.UORD 


0 


003216 


172133 


MPR13: 172132 


'1 


003220 


000000 


.UORD 


0 


003222 


000000 


.UORD 


0 


003224 


000000 


.UORD 


0 


003226 


aooooo 


.UORD 


0 


003230 


000000 


.UORD 


0 


003232 


000000 


.UORD 


0 


003234 


000000 


.UORD 


0 


003236 


000000 


.UORD 


0 


003240 


000000 


.UORD 


0 


003242 


000000 


.UORD 


0 


003244 


000000 


.UORD 


0 


003246 


000000 


.UORD 


0 


003250 


000000 


.UORD 


0 


003252 


000000 


.UORD 


0 


003254 


000000 


.UORD 


0 


003256 


000000 


.UORD 


0 


003260 


000000 


.WORD 


0 



15TH UORD CONTROL MAP..1920KW 
16TH UORD CONTROL MAP..2048KU 
MASK FOR UNUSED PARITY CSR BITS 
PARITY STATUS REGISTER 
1ST UORD CONTROL MAP...128KU 
2ND UORD CONTROL MAP.. .256KU 
3RD UORD CONTROL MAP.. .384KU 
4TH UORD CONTROL MAP...512KU 
5TH UORD CONTROL MAP...640KU 
6TH UORD CONTROL MAP... 768KU 
7TH UORD CONTROL MAP...896KU 
8TH UORD CONTROL MAP..1024KU 
9TH UORD CONTROL MAP.. 1152KU 
iOTH UORD CONTROL MAP..1280KU 
IITH UORD CONTROL MAP..1408KU 
12TH UORD CONTROL MAP..1536KU 
13TH UORD CONTROL MAP..1664KU 
14TH UORD CONTROL MAP..1792KU 
15TH UORD CONTROL MAP..1920KU 
16TH UORD CONTROL MAP..2048KU 
MASK FOR UNUSED PARITY CSR BITS 
PARITY STATUS REGISTER 
1ST UORD CONTROL MAP...128KU 
2ND UORD CONTROL MAP... 256KU 
3RD UORD CONTROL MAP . . . 384KU 
4TH UORD CONTROL MAP... 512KU 
5TH UORD CONTROL MAP... 640KU 
6TH UORD CONTROL MAP... 768KU 
7TH UORD CONTROL MAP... 896KU 
8TH UORD CONTROL MAP..1024KU 
9TH UORD CONTROL MAP.. 1152KU 
lOTH UORD CONTROL MAP..1280KU 
IITH UORD CONTROL MAP..1408KU 
12TH UORD CONTROL MAP..1536KU 
13TH UORD CONTROL MAP..1664KU 
14TH UORD CONTROL MAP..1792KU 
15TH UORD CONTROL MAP..1920KU 
16TH UORD CONTROL MAP..2048KU 
MASK FOR UNUSED PARITY CSR BITS 
PARITY STATUS REGISTER 
1ST UORD CONTROL MAP...128KU 
2ND UORD CONTROL MAP... 256KU 
3RD UORD CONTROL MAP...384KU 
4TH UORD CONTROL MAP...512KU 
5TH UORD CONTROL MAP ..640KU 
6TH UORD CONTROL MAP... 768KU 
7TH UORD CONTROL MAP... 896KU 
8TH UORD CONTROL MAP.. 1024KU 
9TH UORD CONTROL MAP.. 1152KU 
lOTH UORD CONTROL MAP..1280KU 
IITH UORD CONTROL MAP..1408KU 
12TH UORD CONTROL MAP..1536KU 
13TH UORD CONTROL MAP..1664KU 
14TH UORD CONTROL MAP..1792KU 
15TH UORD CONTROL MAP..1920KU 
16TH UORD CONTROL MAP..2048KU 
MASK FOR UNUSED PARITY CSR BITS 
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SEQ 0030 



003262 

003264 

003266 

003270 

003272 

0032''4 

003276 

003300 

003302 

003304 

003306 

003310 

003312 

003314 

003316 

003320 

003322 

003324 

003326 

003330 

003332 

003334 

003336 

003340 

003342 

003344 

003346 

003350 

003352 

0C3354 

003356 

003360 

0C3362 

003364 

003366 

003370 

003372 



172135 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

172137 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 



MPR14: 172134 ♦I 

.UORD 0 

.UORO 0 

.UORO 0 

.WORD 0 

.WORD 0 

.UORD 0 

.WORD 0 

.UORO 0 

•UORD 0 

.UORO 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORO 0 

.UORD 0 

MPR15: 172136 »1 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORO 0 

.UORD 0 

.UORO 0 

.UORO 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

:THIS IS THE END OF 

»1PRX: .BLKU 17. 



PA9ITY STATUS REGISTER 
1ST UORD CONTROL MAP...128KU 
2ND UORD CONTROL MAP... 256KU 
3RD UORD CONTROL MAP... 384KU 
4TH UORD CONTROL MAP... 512KU 
5TH UORD CONTROL MAP... 640KU 
6TH UORD CONTROL MAP.. .768KU 
7TH UORD CONTROL MAP... 8%KU 
8TH UORD CONTROL MAP.. 1024KU 
9TH UORD CONTROL MAP..1152KU 
lOTH UORD CONTROL MAP..1280KU 
IITH UORD CONTROL MAP..1408KU 
12TH UORD CONTROL MAP..1536KU 
13TH UORD CONTROL MAP..1664KU 
14TH UORD CONTROL MAP..1792KU 
15TH UORD CONTROL MAP..1920KU 
16TH UORD CONTROL MAP..2048KU 
MASK FOR UNUSED PARITY CSR BITS 
PARITY STATUS REGISTER 
1ST UORD CONTROL MAP . . . 128KU 
2ND UORD CONTROL MAP... 256KU 
3RD UORD CONTROL MAP... 384KU 
4TH UORD CONTROL MAP...512KU 
5TH UORD CONTROL MAP... 640KU 
6TH UORD CONTROL MAP... 768KU 
7TH UORD CONTROL MAP... 896KU 
8TH UORD CONTROL MAP..1024KU 
9TH UORD CONTROL MAP..1152KU 
lOTH UORD CONTROL MAP..1280KU 
IITH UORO CONTROL MAP..1408KU 
12TH UORD CONTROL MAP..1536KU 
13TH UORO CONTROL MAP..1664KU 
14TH UORD CONTROL MAP..1792KU 
15TH UORD CONTROL MAP..1920KU 
16TH UORD CONTROL MAP..2048KU 

;MASK FOR UNUSED PARITY CSR BrS 
THE TABLE ! 

; TABLE TO HOLD JUST PARHY STATUS REGISTERS THAT EXIST, 
: (THE EXTRA UORO IS FjR A TERMINATOR.) 



r 



5 



CVMSAB 0-2 HEGAWORD MEMORY EX MACRO 
ERROR POINTER TABLE 



003434 
1232 003434 
1233 

1234 003434 

1235 003436 

1236 003440 

1237 003442 
1238 

1239 003444 

1240 003446 
1241 

1242 003450 

1243 003452 
1244 

1245 003454 

1246 003456 

1247 003460 

1248 003462 
1249 

1250 0C3464 

1251 003466 

1252 003470 

1253 003472 
1254 

1255 003474 

1256 003476 

1257 003500 

1258 003502 
1259 

1260 003b04 

1261 003506 

1262 003510 

1263 003512 
1264 

1265 003514 

1266 003516 

1267 003520 

1268 003522 
1269 

1270 003524 

1271 003526 

1272 003530 

1273 003532 
1274 

1275 003534 

1276 003536 

1277 003540 



025152 
026512 
002042 
027250 

025206 
026535 

002054 
027254 

025206 
027214 
002054 
027261 

025242 
026535 
002054 
027254 

025300 
026535 
002054 
027254 

025336 
026535 
002054 
027254 

025402 
000000 
000000 
000000 

025423 
026535 
002054 
027254 

025467 
027214 
002054 
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SBTTL ERROR POINTER TABLE 

*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
♦LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 



SEQ 0031 



♦NOTEl: 
*N0TE2: 

* EM 

* DH 

* DT 
;* OF 
JeRRTB: 
CHGGl: 

;* ITEM 1 
DM1 
DHl 
DTI 
DFl 

;* ITEM 2 
DM2 
0H2 

DT2 
DF2 
;* ITEM 3 
DM2 
DH31 
DT2 
OF 3 

;* ITEM 4 
DM4 

DH2 
DT2 
DF2 

;* ITEM 5 
DM5 
DH2 
DT2 
DF2 

;* ITEM 6 
DM6 
DH2 
DT2 
DF2 

;* ITEM 7 
DM7 
0 
0 
0 

:* ITEM 10 
DM10 
DH2 
DT2 
DF2 

;* ITEM 11 
DM11 
0H31 
DT2 



IF $ITEMB is 0 THE ONLY PERTINENT DATA IS ($ERRPC). 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FQLLOUS: 
POINTS TO TH-- ERROR MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 



;PARITY REGISTER DATA ERROR. 

jPC.REG.S/B.UAS 

: $EftRPC, JGDADR . $6DDAT . $BDDAT 

;16.22.i6.16 

jAOORESS TEST ERR0R(TSTl-5). 
;V/PC.P/PC.MA.S/B.UAS 

: $ VERPC . $ERRPC , JGDADR , $GDDAT . $BDDAT 
:16, 22,^2.16.16 

jADDRESS TEST ERR0R(TSTl-5). 

:V/PC.P/PC.MA.S/B.WAS 

; $ VERPC .$EftRPC . $GDADR . $GDDAT . $BDDAT 

;16.22,i2.8.8 

:CONSTANT DATA ERR0R(TST6-10). 

;V/PC.P/PC.MA.S/B.UAS 

; $ VERPC. $EftRPC, $g6aDR . $GDDAT . $BDDAT 

;16.22.^2.16.l6 

jROTATING BIT ERR0R(TST11-12). 

;V/PC.P/PC.MA.S/B.UAS 

; $ VERI^C . JEftRPC , $g6aDR . $GDDAT . $BDDAT 

•.16.22.^2.16.16 

.•MOS REFRESH TEST ERROR (TST24-25). 
;V/PC.P/PC.MA.S/B.WAS 

VERPC .$EftRPC, $g6aDR . $GDDAT . $BDDAT 
:16.22.^2.16.l6 

; FATAL ERROR HALT 



; MARCHING I'S AND O'S ERR0R(TST23). 

;V/PC.P/PC.MA.S/B.UAS 

; $ VERPC .$ERRPC, $6DADR, $6DDAT . $BDDAT 

:16.22.^2.16.l6 

; PARITY MEMORY ADDRESS ERR0R(TST13). 

;V/PC.P/PC.MA.S/B.WAS 

; i VERPC . JEftRPC . $g6aDR , $6DDAT , $BDOAT 



LV1SAB 0 2 MEGAUORD MEMORY EX MACRO Y05.02 Monday 23 
ERROR POINTER TABLE 





\jc 1 cox 






1 P7Q 




J* 


TTCM 1 0 

J. 1 Cm Ld. 




J J 0 J 




unic 


i CO 1 wo JHO 


0?6S7d 

\JCOJ 1 H 




nm ? 


i.CQC \J\jJJJ\l 


00P070 




nTi? 

U 1 Ic 




KJC 1 COL 










»* 


TTFM 1 7 

1 1 Cm 10 


LCUJ VV/JJJ't 






UMi J 


1 AH'^SSA 

icOD \J\JOJJO 


0?6'^7A 




unic 




Oft?070 




DTI? 




0P7P61 




OFT 


i C O 7 




i • 


J. 1 Cm i' 


1 PQO AO'^'^^A 


\ICJ 1 \J\J 








0?66?^ 






ipop 00^S70 

1.C7C WiJJfv 


00? 10? 




nil 4 


1293 








lC7*t yJv-JJIC 


0?7?66 

VC 1 CUV 




OF 14 
ur iH 


1295 




1 • 


TTFM 1"^ 


1296 003S74 


02515? 

vC JX 




Ul lir 


1297 003576 


0?665? 




OHIS 
unx^ 


1298 003600 

XC70 vv^VVv 


OOPl 14 

vvCX 




OTIS 

U 1 1 J 


i?QQ 00360? 


vC r C wO 




OF 14 


1300 




• * 


TTFM 16 


1301 003604 


025777 

VC Jill 




DM 16 

U' IXu 


1302 003606 


0?66?3 

VCUUC J 




nM14 


1303 003610 


002102 

VVC xvc 




ttT14 

XJ'i A"t 


1304 003612 


027266 




DF14 


1305 




» • 


TTFM 17 


1306 003614 


026056 

VC W J\J 




DM17 

l/l IX ( 


130"' 






1308 003616 


027214 

VC ' c x~ 




DH31 


1309 003620 


002054 

VVC V — ' I 




DTP 

u 1 c 


1310 003622 


027P61 

VC I C vX 




DF^ 


1311 




> * 


TTCM on 

X 1 d 1 Cv 


1312 003624 


026154 

VC VX » 




u\ lev 


1313 003626 


026535 

VC \J .J >J J 




DH? 

L/r IC 


1314 003630 


002054 

V VC V J~ 




DT? 


1315 003632 


027254 

VC ( C J~ 




DFP 

U( c 


1316 






TTFM ?1 

X 1 L.I 1 CX 


1'17 003634 

XwX 1 WJvn^^ 

1318 003636 

XvXW 


OP ft? 06 

VC Uc yJ\j 




DMPI 

Ul IcX 


026725 

VC w 1 c ^ 




DH?1 

L/l ICX 


1319 003640 


002132 

VVC X k'C 




nT?i 

u 1 cX 


1320 00364? 


027274 

VC 1 C f ~ 




DFPl 

\j\ cX 


1321 




• • 


ITEM 2? 

X 1 UM Cc 


1322 003644 


000000 

W vvvv 




0 

V 


1323 OO'LO-in 

1324 003650 


000000 

www 




0 

v 


000000 

www 




0 


1325 003652 


000000 

www 




0 


13^6 




. J, 
1 • 


TTFM ?^ 

X 1 CM c^ 


1327 003654 


026255 




DM23 


1328 003656 


026772 




DH23 


1329 003660 


002150 




DT23 


1330 003662 


027266 




DF14 


1331 




;* 


ITEM 24 


1332 003664 


026322 




DM24 


1333 003666 


027046 




DH24 


1334 003670 


002166 




DT24 
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SEQ 0032 

;16. 22. 22. 8. 8 

DATIO WITH URONG PARITY DIDN'T TRAP(TST13). 
V/PC,P/PC.MA.S/B 
$ VERPC . $EftRPd , $GDADR . $GDDAT 
16.22.22.8 

WRONG PARITY DETECTED. BUT NO REGISTER SHOWS ERROR FLAG. 
V/PC.P/PC.MA.S/B 
% VERPC . $EftRPli . % GD ADR . $GDD AT 
16.22.^2.8 

;PARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS(TST13). 

; V/PCj r/PC . REG , MA 

: % VERPC . $EftRPC , % TMPO . $GDADR 

;16. 22. 22. 22 

PARITY REGISTER DATA ERROR. 
V/PC . P/PC . MAUT , REG . S/B , WAS 
$ VERI^C . $ERRPC . * GDAOR . $TMPO . $GDDAT . $BDDAT 
16.22.^2.22.16.16 

MORE THAN ONE REGISTER INDICATED PARITY ERROR. 
V/PC.P/PC.REG.MA 
$ VERI^C . $EftRPC. $TMPO . $6DADR 
16.22.22,22 

DATA SHOULON' T HAVE CHANGED WHEN PARITY ERROR 
TRAPPED(TST13). 
V/PC.P/PC.HA.S/B.WAS 
J VERI^C . $EftRPd . $66aOR . $SDDAT . $BDDAT 
16.22.^2,8.8 

RANDOM DATA ERR0R(TST14). 
V/PC.P/PC.MA.S/B.WAS 
* VERI^C . $EftRPt , $GOADR . $GDDAT . $BDDAT 
16.22.^2,16.1^ 

INSTRUCTION EXECUTION ERR0R(TST15 22). 
V/PC. P/PC. lUT. MA, S/B, WAS 
$ VERPC, $ERRPC, $TMPO . IgDADR . $GDDAT . $BDDAT 
16.22.16.22.16,16 
NOt U^ED 
CHGGl 



PROGRAM CODE CHANGED WHEN RELOCATED. 
*'/PC,P/PC.SRC MA.DST MA.S/B.WAS 
$VERPC. $EfiRPC,$GDADR. $BOADR. $GDDAT. $BDDAT 
16,22,^2,22,1^,16 

TRAPPED. BUT NO REGISTER HAD ERROR BIT SET. 

V/PC.P/PC.TRP/PC 

$VER^C.$EftRPC,$BDADR 



CVMSAB 0-2 MEGAUORO MEMORY EX MACRO r05 
ERROR POINTER TABLE 



1335 00367P 


027266 


DF14 


1336 




•* ITEM 25 


1337 003674 


026376 


DM25 

wl Ib^ 


1338 003676 


027071 

wb ' V 1 ^ 


DH25 

wl 


1339 003700 


002176 


DT25 


1340 003702 


027266 


DF14 


1341 




•* ITEM 26 


1342 003704 


026416 

V& w~ 


DM26 


1343 003706 


027135 


DH26 


1344 003710 


002212 


DT26 


1345 003712 


027254 


DF2 


1346 




■* ITEM 27 


1347 003714 


026436 


DM22- 


1348 003716 


027135 


DH26 


1349 003720 


002212 


DT26 


1350 003722 


027254 


DF2 


1351 




:* ITEM 30 

§ ^ A 1 1 WW 


1352 003724 


000000 

w w w w 


0 


1353 003726 


027165 


DH30 


1354 003730 


002224 


DT30 


1355 003732 


027302 


DF30 


1356 




!* ITEM 31 


1357 003734 


026472 


DM31 


1358 003736 


000000 


0 


1359 003740 


002236 


DT31 


1360 003742 


027302 


DF30 


1361 






1362 




.SBTTL START: 
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:16, 22, 22 



TRAPPED TO 114. 
V/PC.P/PC.TRP/PC.REG,WAS 
$VERPC. $EfiRPC. $86aOR. $TMPO. $TMP1 
16.22.^2.22.16 

FAILED TO TRAP. 
V/PC.P/PC,REG.WAS 
$VERI^C.$ERRPC,nMPO,$TMPl 
16.22.^2.16 

(ACTION ENABLE WASN'T SET). 
V/PC.P/PC.REG.WAS 
$VERPC.$EftRPC,$TMPO.$TMPl 
16.22.22.16 

NO MESSAGE. 
REG.UAS.MA.UAS 
$TMPO.$TMPi.$GOADR,$BDDAT 
22.16.22.8 

TRAPPED TO 4 
NO HEADER 
nMP3 
22 



REPT 
/*\:/* 
* 

.'rept 

:/:\*/; 

1367 603744 

1368 003750 

1369 003752 

1370 003760 



003760 
003764 
003766 
003772 
003774 

004000 
004006 
004014 



004022 
004026 
004034 
004042 
004050 
004056 



\:/*\:/* 
THIS IS 
NOTE: 
1 

\*/:\*/ 
105067 
000403 
112767 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
016767 



013746 
012737 
012767 
012767 
022777 
001012 



\:/*\:/*\:/*\:/*\:/*\:/*\:/*\:/*\:/*\:/*\:/*\:/*\:/*\:/*\: 
THE NORMAL (SA = 200) BEGINNING OF THE PROGRAM. 
THIS CODE IS NOT POSITION INDEPENDENT. 



\*/:\*/:\*/:\*/:\*/:\*/:\*/:\*/:\*/:\*/:\*/:\*/:\* 
177777 175776 



\*/:\*/ 
176006 



START: 



SELECT : 
STARTA: 
.SBTTL 



CLRB 
BR 

MOVB 



SELFLG 
STARTA 
#-1. 



SELFLG 



CLEAR SELECT PARAMETER FLAG. 
GO DO SETUP AND MEMORY MAP. 
SET THE SELECT PARAMETERS FLAG. 



INITIALIZE THE COMMON TAGS 



001070 

001130 

001100 

000540 
000340 
006634 



000004 
004062 

177570 
177570 
177777 



:;CLEAR THE COMMON TAGS ($CMTAG) AREA 



000024 
000026 
006624 



000004 
175066 
175062 
175052 



MOV 
CLR 
CMP 
BNE 
MOV 

INITIALIZE 
MOV 
MOV 
MOV 

:;SIZ£ FOR A 
;: EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 



;;LOOP BACK IF NO 

:! SETUP THE STACK POINTER 



#$CMTAG.R6 
(R6) + 

«SUR,R6 ::DONE? 

#STACK.SP 
A FEW VECtORS 

#$PWRDN.a#PURVEC ; ;POWER FAILURE VECTOR 
#340.S#PURVEC>2 :! LEVEL 7 

$ENDCT.$EOPCT ::SETUP END-OF -PROGRAM COUNTER 
HARDWARE SwiTCH REGISTER. IF NOT FOUND OR IT IS 
"-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
8#ERRVEC.-(SP) SAVE ERROR VECTOR 
#30000 $.8#ERRVEC ::SET UP ERROR VECTOR 

#OSWR.SWR :; SETUP f6r A HARDWARE SWICH REGISTER 

#DDISP. DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
#-1.3SWR ;;TRY TO REFERENCE HARDWARE SWR 

30002$ ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 



CVMSAB 0-2 MEGAUORD MEMORY EX MACRO Y05.02 
INITIALIZE THE COMMON TAGS 
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004060 
004062 
004066 
004070 
004076 
004104 
004110 
004114 
0D4122 
004124 
004132 

1371 
1372 
1373 

1374 004132 
13^5 004136 

1376 004142 

1377 004150 

1378 004154 

1379 004162 

1380 004164 

1381 004170 

1382 004174 
1383 

1384 
1385 

1386 004200 

1387 004204 

1388 0C4210 

1389 004216 

1390 004222 

1391 004226 

1392 004232 

1393 004234 

1394 004242 

1395 004244 

1396 004250 
1397 

1398 004254 

1399 004260 
1400 

004264 
004270 
004272 
004300 
004302 
004306 

004310 
004314 
00^316 
004324 
004326 
004334 



000403 
012716 
000002 
012767 
012767 
012637 
005067 
132767 
001403 
012767 



016746 
016746 
012767 
005067 
052737 
000402 
062706 
012667 
012667 



005067 
013746 
012737 
013700 
042700 
022700 
001004 
012767 
000402 
062706 
012637 

C05067 
005077 



005227 
001041 
022737 
001435 
004567 
004362 

005737 
001016 
126727 
001412 
026727 
001011 



004070 

000176 
000174 
000004 
175066 
000200 

001216 



173646 
173644 
004164 
173632 
001414 

000004 
173612 
173604 



175574 
000004 
004244 
177750 
177417 
000100 



175032 
175026 



175073 
174776 



177777 
012722 
015444 

000042 
174672 
174576 



173634 
177746 



000004 



177777 175536 

000004 
000004 

175232 
174646 



000042 



000001 
000176 



SEQ 0034 



30000$ : 
30001$: 
30002$: 



BR 
MOV 
RTI 
MOV 
MOV 
MOV 
CLR 
BITB 
BEQ 
MOV 



30001$ 

*30001$.(SP) 



AND THE HARDWARE SUR IS NOT 
BRANCH IF NO TIMEOUT 
SET ^? FOR TRAP RETURN 



-1 



#SUREG.SUR ;; POINT TO SOFTWARE SWR 

SOISPREG^DISPLAY 

■ ; RESTORE ERROR VECTOR 

[CLEAR PASS COUNT 
JEST USER SIZE UNDER APT 
; YES. USE NON-APT SWITCH 
; NO, USE APT SWITCH REGISTER 



'SP)>,a#ERRVEC 
♦PASS 

#APTSIZE.$ENVM 
30003$ 
«$SWREG,SWR 



30003$ ; 

V DISABLE CACHE ELSE SIZING IS AFFECTED 



30$: 
31$: 



MOV 
MOV 
MOV 
CLR 
BIS 
BR 
ADD 
MOV 
MOV 



4.-(SP) 
6.-(SP) 
#S0$.4 
6 

#1414,S#177746 
31$ 
#4,SP 



CS^)*.6 
(SP)+,4 



V SAVE TIME OUT VECTOR 

V SAVE THE STATUS 

V SET UP TIME OUT VECTOR 

V CLEAR T.O. STATUS LOC 

V DISABLE CACHE 

V CACHE IS PRESENT 

V RESET STACK POINTER 

V RESTORE T.O. STATUS 

V RESTORE T.O. VECTOR 



• {VK******************^'*************************************^******* 

;:VK SIZE FOR KDJll-DA (11/53) PROCESSOR 



1$; 
2$: 



CLR 
MOV 
MOV 
MOV 
SIC 
CMP 
6NE 
MOV 
BR 
ADO 
MOV 



KDJDA 
a#4,-(SP) 
#1$.3#4 
S#177750.R0 
#177417, RO 
#100.R0 
1$ 

#-l,KDJOA 
2$ 

(S^)+,a#4 



; ; VK**4>4>4i*****4>**END KOJll-OA SIZING********************************** 



CLR LDDISP 
CLR 80ISPLAY 
.SBTTL TYPE PROGRAM NAME 
;;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 



: CLEAR DISPLAY REGISTER STORAGE LOCN 
; CLEAR DISPLAY REGISTER 



INC #-1 

ONE 30004$ 

CMP #$EN0AD,a#42 

BEQ 30004$ 

JSR R5, $PRINT 

.WORD 30605$ 



.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 



FIRST TIME? 
BRANCH IF NO 
ACT-11? 
.BRANCH IF YES 

GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 



TST 
6NE 
CMPB 
BEQ 
CMP 
BNE 



a#42 
30006$ 
$ENV.#1 

3000^$ 
SWR.#SWREG 
30067$ 



;ARE WE RUNNING UNDER XXDP/ACT? 
; BRANCH IF YES 
:ARE WE RUNNING UNDER APT? 
} BRANCH IF YES 

; SOFTWARE SWITCH REG SELECTED? 
; BRANCH IF NO 



* THE NEXT TWO INSTRJCTIONS PR6vIDE AN INTERFACE TO THE $GTSWR ROUTINE 



CVMSAB 0-2 MEGAUORD MEMORY EX MACRO Y05.02 
GET VALUE FOR SOFTUARE SWITCH REGISTER 
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SEQ 0035 



004336 106746 

004340 105066 000001 



004344 
004350 
004352 
004360 
004360 

004374 

1401 004374 

1402 004376 

1403 004402 

1404 004404 

1405 004410 

1406 004416 

1407 004422 

1408 004426 

1409 004430 

1410 004434 

1411 004436 

1412 004444 
1413 

1414 004446 
1415 
1416 
1417 

1418 004452 

1419 0C4456 

1420 004462 

1421 004464 
1422 

1423 

1424 004466 

1425 004472 

1426 004500 
1427 

1428 004502 

1429 004504 

1430 004510 
1431 

1432 

1433 004514 

1434 004520 

1435 004526 

1436 004530 

1437 004536 

1438 004542 

1439 004546 

1440 004552 
004556 

1441 
1442 
1443 

1444 004560 



004767 
000403 
112767 

000405 



010700 
022700 
001402 
000167 
012767 
005067 
105737 
001011 
005737 
001406 
023737 
001402 



014310 
000001 



004376 

173670 
000001 
174110 
001214 

000042 

000042 



004767 011100 



012700 
012701 
005020 
077102 



005067 
012767 
000007 

000404 
062706 
005267 



005067 
032777 
001047 
012737 
005037 
004767 
005267 
004567 
023650 



001514 
000C20 



175304 
004504 



000004 
175262 



174016 
010000 

004646 
177572 
006232 
173764 
015174 



;* UIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC** 

MFPS -(SP) 

CLRB 1(SP) 



174544 



JSR 
BR 

30006$: MOVB 
30007$ : 

BR 
30005$: 
56004$: 

MOV 



PC 

30607$ 
n.$AUTOB 



$GTSUR 



PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSU RETURN. 
GO TO THE SUBROUTINE 



;;SET AUTO -MODE INDICATOR 



30004$ ;;GET OVER THE ASCIZ 

.ASCIZ <CRLF> ' CVMSAB' <CRLF> 



174116 



000046 



9$: 



10$: 
12$: 



CMP 
6EQ 
JMP 
MOV 
CLR 
TSTB 
6NE 
TST 
6EQ 
CMP 
6EQ 

JSR 



RO 
RO 



PC. 
#9i. 
10$ 

RESTAR 
*1, 

RELOCF 
Si'^$ENV 
13$ 
3*42 
13$ 

S<^42,S#46 
13$ 



PC.SAVLDR 



PRGMAP 



GET CURRENT PROGRAM COUNTER. 

CHECK IF THE PROGRAM IS RELOCATED. 

BR IF PROGRAM NOT RELOCATED. 

GO TRY TO RELOCTED BEFORE CONTINUING. 

INITIALIZE PROGRAM MAP. 

INIT THE RELOCATION FACTOR. 

CHECK FOR APTll 

BR IF APTll 

CHECK FOR STANDALONE 

BR IF STANDALONE 

CHECK FOR ACTll 

BR IF ACTll 

MUST BE XXDP 

GO SAVE LOADERS 



* CHECK IF MEMORY MANAGEMENT IS AVAILABLE. AND SET IT UP IF IT IS. 
INITIALIZE THE MEMMAP TABLE 



l3$: 
14$: 



173310 



15$: 



MOV 
MOV 
CLR 
SOB 



CLR 
MOV 
MFPT 

BR 

ADD 

INC 



#MEMMAP.R0 
#16., Rl 
(RO)* 
Rl,14$ 



LSIFLG 
#15$,RESVEC 



16$ 

#4.SP 

LSlFLG 



174402 
000004 



i* CHECK IF MEMORY MANAGEMENT 

16$: CLR MMAVA 

BIT »SU12,3SUR 

BNE NONKT 

MOV #NONKT.a#ERRVEC 

CLR a#SRO 

JSR PC.MMINIT 

INC MMAVA 

JSR R5, $PRINT 

.WORD MMAMES 



LOAD RO WITH MEMMAP TABLE ADDRESS 
LOAD COUNTER 

CLEAR MEMMAP TABLE ENTRY 

DECREMENT COUNTER 16. TIMES 

IF COUNTER NOT = 0 THEN CLEAR NEXT ENTRY 

INIT LSI-11 /2/QUAD PROCESSOR FLAG 
FIND OUT IF LSI-11/2/QUAD 
MFPT INSTRUCTION WILL CAUSE TRAP 
ON LSI-11/2 

11/23 OR LATER WILL BRANCH 
LSI-11 RETURN, CORRECT STACK 
AND SET LSI-li/2 FLAG 



IS AVAILABLE, AND SET IT UP IF IT IS 
CLEAR KT AND 22 BIT ADDRESSING FLAG 
CHECK FOR INHIBIT KTll SUITCH 
BRANCH IF SET 

SET UP TIMEOUT TRAP VECTOR 
CLEAR MEM MGMT STATUS REGISTER 
MEM MGMT INITIALIZATION ROUTINE 
SET MEM MGMT AVAILABLE FLAG 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"KTll AVAILABLE" 



012737 004630 000004 



CHECK IF 22 BIT SYSTEM AVAILABLE AND SET IT UP IF IT IS 
MOV *22$.8#£RRVEC :SET UP FOR TIME OUT VECTOR 



CVMSAB 0-2 MEGAWORD MEMORY EX MACRO Y05.02 
GET VALUE FQR SOFTWARE SUITCH REGISTER 
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SEQ 0036 



1445 004566 

1446 004572 

1447 004600 

1448 004606 

1449 004614 

1450 004620 

1451 004622 

1452 004626 
1453 

1454 

1455 004630 

1456 004636 
00464? 

1457 004644 
1458 

1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 

1471 004646 

1472 0C4652 

1473 004656 

1474 004660 

1475 004664 

1476 004672 

1477 004674 

1478 004700 

1479 004702 

1480 004704 
1481 

1482 

1483 004706 

1484 004712 

1485 004716 

1486 004720 

1487 004722 

1488 004726 

1489 004730 

1490 004734 

1491 004736 

1492 004740 

1493 004744 
1494 

1495 004746 

1496 004750 
149? 004754 
1498 004756 
1499 



005037 
012737 
052737 
012737 
005737 
001403 
005037 
000454 



052767 
004567 
023715 

000445 



012706 
012700 
005002 
012703 
012737 
011222 
032702 
001374 
050310 
000420 



062706 
022702 
001001 
000405 
022702 
001004 
005267 
050310 
000407 
052702 
005202 

106303 
032703 
001746 
000500 



000000 
010000 
000020 
177777 
000000 

172516 



100000 
015110 



001100 
001514 

000001 
004706 

037777 



000004 
160000 



170000 
175040 

037777 
000020 



172344 

172516 
040000 



CLR S«0 

MOV «10000.9«KIPAR2 

BIS #8IT4,a*SR3 

MOV *-l.a440000 

TST a#o 

BEQ 22$ 

CLR S«SR3 

BR KTSIZ 



CLEAR LOCATION 0 
SET PAR2 TO LOG 128K ♦ 2 
TURN ON 22 BIT ADDRESSING 
NOU URITE TO LOC 128K ♦ 2 
IF LOC 0 = 0 
THEN 22 BIT SYSTEM 

ELSE 18 BIT SYSTEM. DISABLE 22 BIT AOR 
AND GO SIZE MEMORY 



173700 ^2$: 



* TIME OUT TRAP TO HERE OR MEMORY EXISTS AT 128K ♦ 2 



BIS <«IT15.MMAVA 

JSR R5, $PRINT 

.WORD AVAL22 

BR KTSIZ 



ELSE SET 22 BIT FLAG 
GO PRIfJ OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"22 BIT ADR AVAILABLE" 
GO SIZE MEMORY 



THIS ROUTINE WILL MAP MEMORY IN 8K SEGMENTS. SUPPORTS ONL^ THE SIZING 
OF 16 BIT ADDRESSING WITHOUT MEM MGMT SUPPORT. 
STORAGE USED: 

MEMMAP POINTER . 
ADDRESS POINTER 
BANK POINTER . . . 
30K MEMORY FLAG 



RO 
R2 
R3 

FLG30K 
LITERALS: 

MASK8K 



.. LO 128K 
LO 128K 



37777 



000004 



SET-UP THE STACK 

SET UP MEMORY MAP PTR TO LO 128K 
SET ADDRESS PTR TO 0 
SET UP 8K BANK POINTER 
SET UP TIME OUT VECTOR 
READ AND URITE ALL MEMORY 
IF NOT 8K BOUNDARY 
THEN CHECK NEXT LOCATION 
ELSE SET BANK FLAG IN MEMMAP 
AND DO SOME MORE 



n6nKT: MOV *STACK.SP 

MOV *MEMMAP,R0 

CLR R2 

MOV *1,R3 

MOV *2i.a#ERRVEC 

1$: MOV CR25,(R2)* 

BIT #HASK8K,R2 

BNE U 

BIS R3.(R0) 

BR 3$ 



20$: 



21$: 
22$: 



3$: 



4$: 



TIMEOUT TRAPS TO HERE 



ADD 
CMP 
BNE 
BR 
CfP 
BNE 
INC 
BIS 
BR 
BIS 
INC 

ASLB 
BIT 
BEQ 
BR 



W.SP 
*1 60000, R2 
20$ 
21$ 

#170000. R2 
22$ 

FLG30K 

R3.(R0) 

4$ 

*MASK8K.R2 
R2 

R3 

#6IT4.R3 
1$ 

DISMAP 



RESTORE STACK POINTER 
IF NOT 28K BOUNDARY 

THEN BRANCH 

ELSE SET UP POINTERS 
IF NOT 30K BOUNDARY 

THEN BRANCH 

ELSE SET 30K MEMORY FLAG 
SET BANK FLAG IN MEMMAP 
BRANCH ALL DONE 

POINT TO LAST ADDRESS OF 8K BANK 
POINT TO 1ST ADDRESS OF NEXT BANK 

UPDATE BANK POINTER 
IF NOT DONE WITH 32K 
THEN TRY SOME MORE 
GO TYPE OUT MAP 
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SEQ 0037 



1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 

1515 004760 

1516 004764 

1517 004770 

1518 004774 

1519 005000 

1520 005006 
1521 

1522 005014 
1523 

1524 005020 

1525 005022 

1526 005026 

1527 005030 

1528 O'^ju:? 
1529 

1530 

1531 005034 

1532 005040 

1533 005044 

1534 005046 

1535 005052 

1536 005054 

1537 005062 

1538 005064 

1539 005066 
1540 

1541 005070 

1542 005076 

1543 005100 

1544 005102 
1545 

1546 005104 

1547 005112 

1548 005120 

1549 005124 

1550 005130 

1551 005132 

1552 005134 
1553 

1554 005136 

1555 005140 

1556 005142 



012706 
012700 
012702 
005037 
012737 
012737 



011222 
032702 
001374 
050310 
000424 



062706 
022702 
001017 
005767 
100406 
022737 
001010 
050310 
000433 

022737 
001002 
050310 
000425 

062737 
062737 
012702 
005767 
100403 
006303 
001331 

000407 
006303 
001326 



001100 
001514 
040000 
172344 

000200 
005034 



012703 000001 



037777 



000004 
060000 

173464 

007600 



000400 
000400 
040000 
173406 



************************************************** 

THIS ROUTINE WILL MAP MEMORY IN 8K SEGMENTS. MEMORY MANAGEMENT REGISTERS 
KIPAR2 AND KIPAR3 ARE USED TO MAP THE 8K BANKS OF MEMORY. 
IF MEMORY EXISTS NEXT TO THE I/O PAGE (I.E. 760000 OR 17760000) 
THEN THE LAST BANK WILL BE ACKNOWLEDGED AS EXISTING. 
STORAGE USED: 

MEMMAP POINTER 
ADDRESS POINTER 
BANK POINTER 
MAPPED TO 1ST 4K OF 
MAPPED TO 2ND 4K OF 



RO 
R2 
R3 

KIPAR2 
KIPAR3 
LITERALS USED: 
MASK8K 



PRESENT 8K BANK 
PRESENT 8K BANK 



= MASK OF 8K (37777) 



********************************************** 



172346 
000004 



KtSIZ: MOV #STACK.SP 

MOV #MEMMA(i.RO 

MOV #40000.ft2 

CLR WKIPAft2 

MOV #200.a*KIPAR3 

MOV if3$.a*ERRVEC 



1$: 
2$: 



172346 



177600 172346 4$; 



172344 
172346 



5$; 



MOV #BIT0.R3 

MOV (R2).(R2)+ 

BIT #MASK8K,R2 

BNE 2$ 

BIS R3,(R0) 

BR 5$ 

TIMEOUT TRAPS TO HERE 



SET-UP THE STACK 
SET-UP MEMMAP PTR TO FIRST ENTRY 
INIT VIRTUAL ADDRESS TO 0 MAPPED THRU PAR2 
INIT PAR2 TO LOC 0 
SET PAR3 TO 2N0 4K BANK 
LOAD TIME OUT VECTOR 

: SET -UP 8K BANK POINTER 

READ AND WRITE ALL MEMORY 
IF NOT 8K BOUNDARY 

THEN TRY SOMEMGRE 

ELSE SET BANK FLAG IN MEMMAP 
AND GO UPDATE VARIABLES AND CONTINUE 



ADD *4.SP 

CMP #66000. R2 

BNE 5$ 

TST MMAVA 

BMI 4» 

CMP #7600,8*KIPAR3 

BNE 5$ 

BIS R3.(R0) 

BR 7$ 

CMP #177600, 8#KIPAR3 

BNE 5$ 

BIS R3,(R0) 

BR 7$ 

ADD #400.9#KIPAR2 

ADD #400.8#KIPAR3 

MOV #40000. R2 

TST MMAVA 

BMI 6$ 

ASL R3 

BNE 2$ 

BR 7$ 

ASL R3 

BNE 2$ 



RESTORE STACK POINTER 
IF NOT POSSIBLY THE I/O PAGE 
THEN GO TEST SOMEMORE 
ELSE IF 22 BIT ADDRESSING 
THEN GO SEE IF 2M I/O PAGE 
ELSE IF NOT I/O BOUNDARY FOR 18 BITS 

THEN GO UPDATE VARIABLES AND TRY SOMEMORE 
ELSE SET BANK EXISTS IN MEMMAP 
AND GO TYPE MEMORY MAP 

:IF NOT 2M I/O BOUNDARY 
THEN 60 TRY SOMEMORE SIZING 
ELSE SET BANK IN MEMMAP 
AND GO TYPE MEMORY MAP 

UPDATE MAP TO NEXT 
8K BANK 

RESTORE ADDRESS POINTER TO 1ST ADDRESS OF THIS BANK 
IF NOT 18 BIT ADOR 
THEN GO TEST SOMEMORE 
18 BIT ADDR. = 1 WORD 
IF NOT END OF 18 BIT ADDR 

THEN GO SIZE SOMEMORE 

ELSE ALL DONE 18 BIT SIZING. 
UPDATE BANK POINTER 

IF NOT END OF THIS MEMMAP ENTRr. then CONTINUE 
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SEQ 0038 



1557 005144 

1558 005150 

1559 005154 
1560 

1561 005156 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 005160 

1573 005164 

1574 005172 
005176 

1575 005200 

1576 00S204 
005210 

1577 005212 

1578 005216 

1579 005222 

1580 005226 

1581 005230 

1582 005232 

1583 005234 

1584 005240 

1585 005244 

1586 005250 

1587 005252 
005256 

1588 005260 
1589 

1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 

1598 005262 

1599 005266 

1600 005274 

1601 005276 

1602 005302 

1603 005310 

1604 005314 
1605 

1606 005320 

1607 005322 
1608 



062700 
022700 
001317 

000400 



012700 
012737 
004567 
023742 

004767 
004567 
001171 
012702 
012700 
012701 
005012 
012022 
077103 
016700 
042700 
022700 
001404 
004567 
024022 

000000 



000002 
001554 



C01514 
023430 
014554 



011622 
014542 

001614 
001514 
000020 



174254 
177774 
000003 

014474 



7$; 



ADO 
CMP 
BNE 

BR 



v2 RO 

#MtMMAP*40.R0 
1$ 

DISMAP 



ELSE UPDATE TO NEX MEMMAP ENTRY 
IF NOT END OF MEMMAP TABLE 

THEN GO SIZE SOMEMORE 

ELSE ALL DONE SIZING 
60 TYPE OUT MEMORY MAP 



ROUTINE WILL TYPE OUT MEMMAP. LOAD TEST MAP CSAVTST) AND CHECKS 
TO INSURE LOUEST 16K OF MEMORY IS AVAILABLE FOR TEST TO RUN 
STORAGE LOCATIONS: 

RO = MEMMAP POINTER . . . LO 128K 

Rl = COUNTER 

R2 « SAVTST POINTER . . . LO 128K 



000004 



fitSMAP 



1$; 



MOV *MEMMAP.RO 

MOV #ERRTRP.S#ERRVEC 

JSR R5, JPRINT 

.WORD MEMMES 

JSR PC.TYPMAP 

JSR R5. $PRINT 

.WORD $cAlF 

MOV #SAVTST.R2 

MOV #MEMMAP.RO 

MOV #16.. Rl 

CLR (R2j 

MOV (R0)+.CR2)* 

SOB Rl.lJ 

MOV MEMMAP. RO 

BIC #177774. RO 

CMP #3.R0 

BEQ GM^R 

JSR R5. JPRINT 

.WORD INSuFF 

HALT 



TO BE CLEARED 



LOAD RO UITH MEMMAP ADR 
SET UP TIME OUT VECTOR 
60 PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"HEMORY MAP:" 
GO TYPE THE MAP 

GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
LOAD ADR OF SAVTST TABLE 
LOAD ADR OF MEMMAP TABLE 
LOAD COUNTER 
CLEAR SAVTST TABLE ENTRY 
LOAD SAVTST FROM MEMMAP 
DECREMENT CTR 16 TIMES 
LOAD RO UITH MAP OF 1ST 128K 
MASK ALL BUT BOTTOM 16K 
IF BOTTOM 16K IS ALL THERE 

THEN GO RUN 
60 PRINT OUT THE F0LL0UIN6 MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"FIRST 16K OF MEMORY NOT ALL THERE!" 
FATAL ERROR HALT 

MEMORY IS NOT CONFIGURED TO RUN THIS PROGRAM 



SBTTL MAP PARITY REGISTERS 

* SEARCH FOR PARITY REGISTERS PRESENT AND TYPE ADDRESSES OF THOSE FOUND 

* THAT ARE FUNCTIONAL AND HAVE CORRESPONDING PARITY MEMORY 



012704 003372 

032777 000100 173634 

001040 

012703 002272 

012737 005324 000004 

042713 000001 

005773 000000 

012324 
000404 



GMPR: 



GMPRA: 



IF 



MOV 
BIT 
BNE 
MOV 
MOV 
BIC 
TST 

IT DOESN- 
MOV 
BR 



#MPRX. 
#SU06. 



TIMEOUT COMES HERF 



R4 ;SET UP POINTER TO PARITY RE5 EXIST TABLE. 

SSWR ;CHECK FOR INHIBIT PARITY SUITCH. 
GMPRD ;BR IF INHIBIT PARITY. 

#MPRO. R3 ;SET UP TABLE POINTER 

#GMPRB. 8#ERRVEC :SET UP TIMEOUT TRAP SERVICE 
#1. CR3) ;CLEAR FLA6 BIT IN TABLE 
a(ft3) ;DOES THIS MEMORY PARITY RE6ISTER EXIST. 

T EXIST. A TIMEOUT TRAP UILL 60 TO "6MPRB". 
(R3)t. (R4)* :SAVE IT IN THE PARITY REG EXIST TABLE. 
6MPRBA :SKIP "IMEOUT SERVICE CODE 



N. 



7 

•J 
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SEQ 0039 



1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 



1625 



005324 
005330 
005334 
005340 
005342 

005344 

005350 
005352 
005354 
005362 
005366 
005370 
005374 



062706 


000004 


GMPRB : 


ADD 


052723 


000001 

www* 




BIS 

ux w 


012701 


000021 


GMPRBA- 


MOV 


005023 




GMPRC: 


CLR 


077102 






SOB 


020327 


003372 




CMP 

W If 


103757 






BLO 


005014 






CLR 


012737 


023430 000004 




MOV 


005767 


176004 




TST 


001006 






BNE 


004567 


014356 




JSR 


024103 






.UORD 


005014 




GMPRO: 


CLR 


000167 


000744 




JMP 



*4.SP 

#1. (R3)* 
*lt. ,R1 
(R3)> 
Rl. GMPRC 



R3. 

GMPRA 

(R4) 

#£RRTRP 

MPRX 

MPAMEM 

Mlft 

(R4) 
MANUAL 



*MPRX 



RESTORE STACK POINTER 

SET FLAG TO INDICATE REGISTER NOT PRESENT 

LOAD COUNTER 

CLEAR ENTRY IN THIS GPR TABLE 
DECREMENT COUNTER AND CONTINUE 
CLEARING COUNTER UNTIL COMPLETED. 
HAVE WE CHECKED ALL REGISTERS? 



;N0 GO BACK TO CHECK NEXf ONE 
;SET TERMINATOR IN PARITY REG EXIST TABLE. 
.8#ERRVEC ; RESTORE TRAPCATCHER 

:ANY PARITY REGISTERS PRESENT? 
iYES - GO TEST CONTROLS PRESENT 
$PRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"NO MEMORY PARITY REGISTERS FOUND" 
MAKE SURE TABLE IS CLEAR. 

J AND SKIP ALL CONTROLS TESTING 
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SEQ 0040 



1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1630 

1681 

1632 

1683 



005404 
005410 
005414 
005420 
005422 
005426 

005432 
005436 
005442 
005444 

005446 
005452 
005454 
005460 

005464 
005470 
005472 

005474 
005500 
005502 
005510 
005512 
005514 
005522 
005526 
005530 
005536 
005542 
005544 
005550 
005554 



004767 
012702 
005767 
001404 
012/02 
004767 

012703 
012704 
005023 
077402 

004767 
005000 
012705 
012701 

012703 
010304 
060504 

032713 
001021 
013773 
011212 
005712 
043773 
005773 
100006 
012763 
050160 
050114 
062703 
022703 
101345 



011262 
014000 
173116 

054000 
005346 

001654 
000020 



011220 

000002 
000001 

002272 



000001 
001766 



001766 
000000 

070032 
001654 

000044 
003372 



SBTTL MAP PARITY MEMORY 

: *************************************************************** 

MAP CORRESPONDENCE BETWEEN PARITY REGISTERS AND MEMORY, 
AND TYPE RESULTS. SET WRITE WRONG PARITY IN ALL 
REGISTERS PRESENT. THEN WRITE TEST LOCATION VIA DATO L READ TEST 
LOCATION VIA DATI. THEN CLEAR WRITE WRONG PARITY IN ALL REGISTERS. 
NOTE: THAT iP PARITY MEMORY IS NOT LOCATED CORRECTLY THAT 
IT IS IN ALL PROBABILITY DUE TO ONE OF THE FOLLOWING 
FAILURES: 

- SETTING WRITE WRONG PARITY DIDN' T CAUSE BAD PARITY TO BE WRITTEN 

- PARITY GENERATE OR DETECT LOGIC FAILED 

- PARITY ERROR BIT FAILED TO SET 

- PARITY BITS IN MEMORY LOCATION FAILED 

- I.E. BIT STUCK AT GOOD PARITY VALUE 
STORAGE USED: 

RO = MEMMAP £ PMEMAP TABI.E INDEX 
Rl = BANK POINTER 
R2 = ADDRESS TO WRITE WRONG PARITY TO 
R3 = MPR TABLE POINTER 
R4 « ADDRESS OF PRESENT MPR TABLE ENTRY 
R5 = MPR TABLES INDEX 
****************************************************** ^i******* 



M^AMEM: JSR 
MOV 
TST 
BEQ 
MOV 
JSR 



MAPRB: 
1$: 



2$; 
3$; 



000000 
000000 
000042 



4$: 



MOV 
MOV 
CLR 
SOB 

JSR 
CLR 
MOV 
MOV 

MOV 
MOV 
ADD 

BIT 
BNE 
MOV 
MOV 
TST 
BIC 
TST 
BPl 
MOV 
BIS 
BIS 
ADD 
CMP 
BHI 



PC.CLRPAR 
#14000. R2 
MMAVA 
MAPRB 
#54000. R2 
PC.MMINIT 

#PMEMAP,R3 
#16.. R4 
CR3)* 
R4.1$ 

PC.CLRPAR 
RO 

#2.R5 
#6tT0.Rl 

#MPR0.R3 

R3.R4 

R5.R4 

#6IT0,(R3) 
4$ 

S#UWP,S(R3) 

CR2).(R2) 

CR2) 

3#WWP.S(R3) 

a(R3) 

4$ 

#70032. 42(R3) 

Rl.PMEMAP(RO) 

R1.(R4) 

#44.R3 

#MPftX.R3 

3$ 



INITIALIZE ALL PARITY REGISTERS 
SET ADDRESS TO 14000 TO WRITE WRONG PARITY 
IF NO MEM MGMT 

THEN GO MAP PARITY MEMORY 

ELSE SET ADDRESS POINTER TO MAP THRU PAR2 
SET UP MEM MGMT REGISTERS 

LOAD PMEMAP TABLE ADR 
LOAD COUNTER 
CLEAR ALL OF TABLE 

IF NOT DONE CLEARING THEN TRY SOMEMORE 



GO 
INI 
INI 
INI 



NITIALIZE ALL PARITY REGISTERS 
INDEX FOR MEMMAP AND PMEMAP TABLES 
INDEX FOR MPR TABLES 
BANK POINTER 



INIT MPR TABLE ADDRESS POINTER 

UPDATE TO NEW TABLE 

UPDATE INDEX THRU NEW TABLE 

IF CSR IS NOT PRESENT 

THEN GO TRY AGAIN 

ELSE SET WRITE WRONG PARITY BIT 
WRITE WRONG PARITY 
READ WRONG PARITY 
CLEAR WRITE WRONG PARITY BIT 
IF NO PARITY ERROR 

THEN REGISTER DOES NOT CONTROL THIS MEMORY 

ELSE SAVE THE PARITY MASK IN TABLE 
SET BANK IN PMEMAP 
SET BANK IN MPR TABLES 
UPDATE TO NEXT MPR TABLE 
IF NOT END OF TABLE 

THEN TRY SOMEMORE 
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SEQ 0041 



1684 005556 
1685 

1686 005560 

1687 005564 

1688 005566 

1689 005574 

1690 005576 

1691 005600 

1692 005604 

1693 0'D5610 

1694 005614 

1695 005620 

1696 005622 
1697 

1698 005624 

1699 005630 

1700 005632 

1701 005636 
1702 

1703 005640 

1704 005644 
1705 

1706 005646 
1707 

1708 005650 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 005654 

1721 005660 
005664 

1722 005666 
1723 

1724 005672 

1725 005676 
1726 

1727 005700 
005700 
005704 

1728 005706 

1729 005710 

1730 005714 

1731 005720 

1732 005722 

1733 005724 

1734 005730 
r35 



011212 

005767 
001417 
062737 
006301 
001020 
062700 
062705 
012701 
022700 
001413 
000406 

062702 
106301 
032701 
001004 

036001 
001745 

000706 

000167 



004767 
004567 
023760 

012703 

032713 
001050 



004567 
024367 

011301 
042701 
005767 
100404 
001006 
012702 
000405 



172752 
000400 



000002 
000002 
000001 
000040 



040000 
000020 

001514 



000000 



011012 
014066 



002272 
CoOOOl 

014046 



100000 
172616 



000001 



5$; 



172344 



6$; 



7$; 



9$: 



MOV (R2).(R2) 

TST MHAVA 

BEQ 6$ 

ADO #400,9«KIPAR2 

ASL Rl 

BNE 7$ 

ADD #2,R0 

ADO #2.R5 

MOV #b1to.ri 

CMP *40.R0 

BEQ 9$ 

BR 7$ 

ADD #40000. R2 

ASLB Rl 

BIT #8IT4.R1 

BNE 9$ 

BIT MEMMAPCR0).R1 

BEQ 5$ 

BR 2$ 

JMP TMAP 



ELSE CLEAR BAD PARITY 



IF NO MEM MGMT 
THEN GO UPDATE FOR 16 BIT SYSTEM 
ELSE UPDATE PAR2 TO NEXT 8K BANK 
UPDATE BANK POINTER TO NEXT BANK 
IF STILL^SOME TO^CHECK IN THIS 128K BANK THEN DO If 

^ELSE UPDATE INDEX FOR MEMMAP AND PMEMAP TABLES 
UPDATE INDEX FQR GPR TABLES 
INIT BANK POINTER 
IF END OF MEMMAP 

THEN GO TYPE MEM PARITY MAPS 
GO TRY SOMEMORE 

UPDATE ADDRESS TO NEXT 8K BANK 
UPDATE BANK POINTR 
IF DONE WITH 16 BITS 
THEN FINISHED 

;IF BANK DOES NOT EXIST 
: THEN GET ANOTHER BANK 

; THEN GO DO SOMEMORE 

;G0 TYPE PARITY MAPS 



.SBTTL DISPLAY PARITY MEMORY MAP 

^ WW l^rll^LW.n^L)!!^^^^ "EMORY IS PRESENT AND WHICH 

CONTROL REGISTERS CONTROL WHICH MEMORY. 
STORAGE USED: 

RO = FIRST ADDRESS OF MAP TO BE TYPED 
Rl = PARITY REGISTER ADDRESS . . . BITS 14-0 
R2 = PARITY REGISTER ADDRESS ... BITS 21-15 
R3 = MPR TABLE ENTRY 



tllAP: 

1$: 
2$: 



JSR 
JSR 
.WORD 

MOV 

BIT 
BNE 



JSR 
.WORD 

MOV 
BIC 
TST 
BMI 
BNE 
MOV 
BR 



PC.CLRPAR 
R5. $PRINT 
MTHAP 

#MPR0.R3 

*BIT0.(R3) 
64 



R5, 
MXl 



$PRINT 



(R3),R1 
#100600. Rl 
MMAVA 
3$ 
4$ 



*1.R2 



5$ 



INITIALIZE ALL PARITY REGISTERS PRESENT 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"PARITY MEMORY MAP:" 
INIT MPR TABLE POINTER 

:IF THIS REGISTER IS NOT PRESENT 
; THEN GO TRY AGAIN 



;G0 PRINT OUT THE FOLLOWING MESSAGE. 

; ADDRESS CF MESSAGE TO BE TYPED 

: "PARITY REGISTER AT" 

:SAVE PARITY REGISTER ADDRESS 

jDEVELOP BITS 14-0 OF REGISTER ADDRESS 

:IF TYPE OF MEMORY MANAGEMENT 

; THEN 22 BIT BRANCH 

; OR 18 BIT BRANCH 

, ELSE 16 BIT SET BITS 21-15 FOR PRINT OUT 
.AND 60 TYPE OUT 



^4 
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SEQ 004Z 



1736 005732 012702 000177 

1737 005736 000402 
1738 

1739 005740 012702 000007 
1740 

1741 005744 

005744 010246 



005746 106746 

005750 105066 000001 

005754 004767 015220 

005760 003 

005761 000 
1742 005762 010146 



005764 106746 

005766 105066 000001 



005772 
005776 
005777 

1743 006000 
006004 

1744 0C6006 

1745 006010 

1746 006014 
1747 

1748 006020 

1749 006024 

1750 006030 
1751 

1752 006032 

1753 006036 

1754 006042 

1755 006044 
1756 

1757 006046 

1758 006052 

1759 006054 
1760 

1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 

1770 006060 

1771 006064 



004767 
005 
001 
004567 
024415 

010300 

062700 
004767 

062703 
022703 
101320 

012700 
012701 
077101 

orow 

005737 
001002 
000167 



015202 
013746 



000002 
011306 

000044 
003372 



000010 
177777 



003372 
000270 



3$: 

4$; 
5$: 



MOV 
BR 

MOV 



MOV 



n77.R2 
5$ 

*7.R2 



R2.-(SP) 



;LOAD BITS 21-15 FOR PRINT OUT 
:ANO GO TYPE OUT 

;LOAD BITS 21-15 FQR PRINT OUT 



;* 
:* 



::SAVE R2 FOR TYPEOUT 
ijTYPE ADDRESS BITS 21-15 
THE NEXT TUO INSTRUCTIONS PR6vI0E AN INTERFACE TO THE JTYPOS ROUTINE 
UIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC** 
MFPS -(SP) ;PUT THE PROCESSOR STATUS ON THE STACK 

CLRB KSP) :HIGH BYTE CLEARED TO INSURE KERNEL MODE 

iON PSW RETURN. 
JSR PC. $TYPOS :GG TO THE SUeROUTINE 
•BYTE 3 :;TYPE 3 DIGIT(S) 

.BYTE 0 , ^ ;: SUPPRESS LEADING ZEROS 

MOV Rl.-(SP) ;:SAVE Rl FOR TYPEOUT 

:;TYPE ADDRESS BITS 14-0 
THE NEXT TUO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYP0S ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



6$; 



7$; 
8$; 



MFPS 
CLRB 

JSR 

.BYTE 

.BYTE 

JSR 

.UORD 

MOV 

ADD 
JSR 

ADD 
CMP 
BHI 

MOV 
MOV 
SOB 
SOB 

TST 
BNE 
JMP 



llsp] 

PC, 

1 

MX^ 



$TYPOS 



$PRINT 



R3.R0 
#2 RO 
PC.TYPMAP 

*44.R3 

*MPRX,R3 

1$ 

#10, RO 
#-l.Rl 

RlM 
R0.7$ 

S*MPRX 

CTRLS 

MANUAL 



PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSW RETURN. 
GO 10 THE SUBROUTINE 
;TYPE 5 DIGIT(S) 
:TYPE LEADING ZEROS 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"CONTROLS" 

SET UP RO FOR TYPMAP ROUTINE 

POINT TO MAP ENTRY FOR MPR TABLE 

GO TYPE MEMORY COVERED BY THIS REGISTER 

UPDATE TO NEXT REGISTER IN TABLE 
IF NOT END OF MPR TABLE 
THEN DO SOMEMORE 

LOAD DELAY 
LOAD DELAY 

ALLOW DELAY TO INSURE PRINT OUT IS 
COMPLETED BEFORE RESET OCCURS 

IF PARITY REGISTERS TO TEST 
THEN GO TEST 
ELSE JUMP OVER TESTS 



012703 002272 
011302 



.SBTTL TEST PARITY REGISTERS 

* SHOW THAT BITS 0. 2, 5 - 11 AND 15 OF EACH PARITY REGISTER PRESENT 

* CAN BE SET AND CleArED. 

* THIS IS A ONCE ONLY TEST. 

CTRLS: MOV *MPRO. R3 ;LOAD INITIAL TABLE ADDRESS FOR A POINTER 
1$: MOV CR3).ft2 ;GET CSR ADDRESS INTO R2 
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SEQ ^043 



1772 006066 

1773 006072 

1774 006074 

1775 006102 

1776 006104 

1777 006110 

1778 006112 

1779 006114 

1780 006120 

1781 0-D6122 
006126 
006132 

1782 006134 

1783 006140 

1784 006142 

1785 006144 

1786 006146 

1787 006150 

1788 006154 
006156 
006160 
006164 
006170 
006172 

1789 

1790 006172 

1791 006174 

1792 006200 

1793 006202 
006206 
006212 

1794 006214 

1795 006216 

1796 006220 

1797 006224 

1798 006230 
1799 

1800 
1801 
1802 
1603 
1804 
1805 

1806 006232 

1807 006236 

1808 006242 

1809 006244 
mo 006250 

1811 006252 

1812 006260 

1813 006264 

1814 006266 

1815 006270 

1816 006274 

1817 006300 

1818 006302 

1819 006306 



03^702 
001052 
016367 
001446 
012700 
005012 
011201 
046701 
001405 
004767 
004767 
000001 
030067 
001025 
010012 
011201 
005012 
046701 
020001 
001405 
004767 
004767 
000001 



011201 
046701 
001405 
004767 
004767 
000001 
006300 
001346 
062703 
022703 
003315 



012704 
022704 
003411 
032714 
001003 
012774 
062704 
000764 
000005 
012702 
022702 
003423 
032712 
001015 



000001 

000042 173404 
000001 

173366 

010566 
011712 

173346 



173332 



010572 
011654 



173306 

010506 
011632 



000044 
003372 



BIT 
BNE 
MOV 
BEQ 
MOV 
CLR 
MOV 
BIC 
BEQ 

30008$: JSR 
JSR 
.UORD 

2$: BIT 
BNE 
MOV 
MOV 
CLR 

106$: BIC 
CMP 
BEQ 

30009$: JSR 
JSR 
.WORD 

30010$ : 

MOV 
BIC 
BEQ 

30011$: JSR 
JSR 



*6IT0.R2 
105$ 

42(R3).RESRVD 

105$ 

*1.R0 

(R^) 
f''2).Rl 
K.SRVD.Rl 
2$ 

PC. SPRNT 
PC. $ERROR 

RO.RESRVD 
3$ 

R0.CR2) 
(R^).Rl 

(R2) 

RESRVD.Rl 
RO. Rl 
306lO$ 

PC. SPRNTO 
PC. $ERROR 
1 



3$: 
105$: 



.UORD 
ASL 
BNE 
ADD 
CMP 
BGT 



(R2),R1 
RESRVD. 
3$ 
PC. 
PC. 
1 
RO 
2$ 

#44.R3 

#MPftX,R3 

1$ 



Rl 

SPRNT 
$ERROR 



ELSE IF CSR DOES NOT EXIST 
•HEN BRANCH 

ELSE LOAD MASK. IF EQ TO 0 
THEN DO NOT ifST 
LOAD RO WITH 1ST BIT TO BE TESTED 
INITIALIZE THE PARITY REGISTER 
READ THE CONTENTS OF THE PARITY REGISTER 
CLEAR RESERVED BITS. IF EQ 0 

THEN BRANCH 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 
IF THIS BIT IS RESERVED 

THEN BRANCH AND DON'T TEST 

ELSE SET THIS BIT IN CSR 
READ AND SAVE CONTENTS OF CSR 
CLEAR THE CSR 
CLEAR RESERVED BITS 

COMPARE THE CHECK UORD UITH THE DATA READ, 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

MAKE SURE BIT UAS CLEARED OUT OF CSR 
READ THE CONTENTS OF THE PARITY REGISTER 
CLEAR BITS UHICH ARE RESERVED 
CHECK OTHER BITS - BRANCH IF OK 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

ROTATE TO GET NEXT BIT TO BE TESTED 
BRANCH IF NOT DONE UITH ALL BITS 
UPDATE PTR TO NEXT ENTRY 
IF NOT DONE UITH TABLE 
THEN TRY AGAIN 



* SHOU THAT RESET CLEARS BITS 0.2 AND 15 OF EACH PARITY REGISTER PRESENT. 

* ALSO BIT 14 IN PARITY CSR IF MEMORY IS SET FOR 22 BIT ADDRESSING 

* THIS IS A ONCE ONLY TEST. 



002272 


RESCHK: 


MOV 


003372 


1$: 


CMP 






BLE 


000001 




BIT 






BNE 


177777 000000 




MOV 


000044 


101$: 


ADD 






BR 




100$: 


RESET 


002272 




MOV 


003372 


2$: 


CMP 






BLE 


000001 




BIT 






BNE 



*MPRO, R4 

#MPRX.R4 

100$ 

«BIT0,(R4) 
101$ 

*-i.a(R4) 

#44, R4 
1$ 

#MPR0,R2 

#t1PRX.R2 

MANUAL 

*BIT0,(R2) 

30013J 



LOAD INITIAL TABLE ADDRESS FOR A POINTER 
IF END OF TABLE 
THEN BRANCH 

ELSE IF CSR DOES NOT EXIST 
THEN BRANCH 

ELSE LOAD CSR UITH ALL 1 S 
UPDATE POINTER 
TRY AGAIN 
RESET THE UORLD 

LOAD INITIAL ADDRESS FOR POINTER 
IF END OF TABLE 
THEN BRANCH 

ELSE IF CSR DOES NOT EXIST 
;V THEN BRANCH 
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SEQ 0044 



1820 006310 


017201 


000000 




MOV 


1821 006314 


005072 


000000 




CLR 


1822 006320 


042701 


037772 




6IC 


1823 










1824 










1825 006324 


005701 




4$ : 


TST 


1826 006326 


001405 






BEQ 


006330 


004767 


010360 


30012$ : 


JSR 


006334 


004767 


011504 




JSR 


006340 


000001 






.UORO 


006342 






30013$ : 




1827 006342 


062702 


000044 




ADO 


1828 006346 


000752 






BR 


1829 




















1831 006350 


005067 


173406 


MANUAL: 


CLR 


1832 006354 


105767 


173376 




TSTB 


1833 006360 


001002 






BNE 


1834 006362 


000167 


000402 




JMP 


1835 006366 






MANULl: 




006366 


004567 


013360 




JSR 


006372 


024453 






.UORO 



1836 
1837 

006374 
006376 

006402 

1838 006406 

1839 006412 

1840 006414 

1841 006420 

1842 006422 

1843 006426 

1844 006430 

1845 006434 

1846 006436 

1847 006442 

1848 006446 

1849 006452 

1850 006^56 
1351 U06460 

1852 006462 

1853 006466 

1854 006470 

1855 006472 

1856 006474 

1857 006476 

1858 006500 

1859 006504 

1860 006510 

1861 006512 

1862 006514 
006514 
006520 



106746 
105066 

004767 

032716 
001365 
016703 
011604 
006267 
006016 
006267 
006016 
006367 
012700 
066700 
012701 
006016 
077102 
052710 
005716 
001403 
006310 
005316 
000773 
012702 
066702 
031012 
001725 

004567 
024540 



000001 

013170 
037777 

013330 

013322 

013314 

013306 
001714 
013276 
000012 

000001 



001514 
013240 



013232 



a(R2).Rl 

a(R2) 

«7772.R1 



Rl 

30013$ 
PC. 
PC. 
1 

#44, R2 
2$ 



FSTADR 
SELFLG 
MANULl 
MANUL2 



SPRNT 
$ERRaR 



ELSE SAVE CONTENTS OF CSR 
CLEAR THE CSR 
TEST FOR BIT14 TOO 

18 BIT MODE = BIT14 ALWAYS READ AS ZERO 
22 BIT MODE - BIT14 R/U. CLEARED BY RESET 
CHECK IF REST WERE CLEArED BY RESET 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES ^OR ERROR PRINTING. 
♦** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

:UPDATE POINTER 

sBRANCH BACK TO CHECK NEXT REGISTER 



INIT FIRST ADDRESS 
CHECK FOR SELECT PARAMETER SETUP 
IF FLAG SET GET USERS PARAMETERS 
ELSE USE DEFAULT DATA 



faiJmes 



$PRINT 



!* 

;* 



GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"FIRST ADDRESS:" 
.FIRST ADDRESS 8K BOUNDARY 
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $RDOCT ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



1$: 



2$; 



3$; 



4$ 



MFPS 
CLRB 

JSR 

BIT 

BNE 

MOV 

MOV 

ASR 

ROR 

ASR 

ROR 

ASL 

MOV 

ADD 

MOV 

ROR 

SOB 

BIS 

TST 

BEQ 

ASL 

DEC 

BR 

MOV 

ADD 

BIT 

BEQ 

JSR 
.WORD 



-CSP) 
1(SP) 

PC. $RDOCT 
#3)777. (SP) 
MANULl 
$HI0CT,R3 
(SPhR4 

$hioCt 

(SP) 

$HI0CT 

(SP) 

$HIOCT 

#BITPT,RO 

$HIOCT.RC 

#12,R1 

(SPJ 

Rl.l$ 

#BiTO.(RO) 

(SP) 
3$ 

(ROD 
(SP) 
2$ 

#MEMMAP.R2 
$HI0CT.ft2 
(R0).(l^2) 
MANULl 



la6mes 



$PRIN' 



PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSW RETURN. 
GO TO THE SUBROUTINE 
ON 8K BOUNDARY? 
IF NO.REASK 

SAVE ORIGINAL HIGH BITS 
AND LOW BITS 

DIVIDE HIGH ADDRESS INTO 
NUMBER OF 128K BANKS AND 
NUMBER OF 8K BANK WITHIN 
128K BANK 

MAKE NUMBER OF 128K BANKS INDEX 
GET START OF TEST TABLE 
ADD INDEX 

SET UP TO ALIGN 8K BANK COUNT 
ALIGN COUNT 
LOOP UNTIL DONE 

INIT 8K BANK POINTER IN 128K WORD 
SHIFT BIT UNTIL COUNT = 0 
WHEN ZERO DONE 
SHIFT BIT 

SUBTRACT FROM COUNT 
LOOP BACK 

GET FIRST ADDRESS OF MEMORY TABLE 
ADD INDEX 

IS BIT JUST LOCATED. SET IN MEM. TABLE 
IF NO BANK EXISTS... REASK 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 
; ADDRESS OF MESSAGE TO BE TYPED 



u4 

CVMSAB 0-2 MEGAUORD MEMORY EX MACRO Y05.02 
TEST PARITY REGISTERS 



Monday 23-Dec-85 08:45 Pagt S 



1863 



006522 106746 

006524 105066 000001 



006530 

1864 006534 

1865 006536 

1866 006540 

1867 006544 

1868 006546 

1869 006552 

1870 006560 

1871 006564 

1872 006566 

1873 006570 

1874 006572 

1875 006574 

1876 006600 

1877 006604 

1878 006610 

1879 006612 

1880 006614 

1881 006620 

1882 006622 

1883 006624 

1884 006626 

1885 006630 
1886 

1887 006634 

1888 006636 

1889 006642 

1890 006646 

1891 006650 

1892 006652 

1893 006654 

1894 006656 

1895 006662 

1896 006666 

1897 006672 

1898 006674 

1899 006676 

1900 006700 

1901 006702 

1902 006706 

1903 006712 

1904 006716 

1905 006720 

1906 006722 

1907 006724 

1908 006730 
006734 



004767 
005716 
001010 
005767 
001005 
016716 
016767 
020467 
101353 
103402 
020316 
101350 
012700 
012701 
012702 
052122 
077002 
020367 
103403 
101027 
020/" 16 
101025 
062704 

005503 
012700 
012701 
006321 
006121 
077002 
103423 
012700 
012701 
012702 
032122 
001337 
077003 
000753 
012700 
012701 
012702 
032122 
001007 
077003 
012706 
004567 
024563 



013042 



013204 

172402 
172400 
013164 



000020 
001714 
001614 



013130 



040000 



000017 
001714 



000020 
001714 
001514 



000020 
001714 
001514 



001100 
013016 



• "LAST ADDRESS • " 

J* THE^NEXT TWO INSTRUCTIONS PR6vIDE AN INTERFACE TO THE $RDOCT ROUTINE 
:* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**, 



013170 



5$; 



6$: 



7$; 



1909 006736 000604 

1910 006740 012706 001100 

1911 006744 004567 013002 



8$: 
9$: 

10$: 

11$: 
12$: 
13$: 

14$: 



MFPS 
CLRB 

JSR 
TST 
BNE 
TST 
BNE 
MOV 
MOV 
CMP 
BHI 
BLO 
CMP 
BHI 
MOV 
MOV 
MOV 
BIS 
SOB 
CMP 
BLO 
BHI 
CMP 
BHI 
ADD 

ADC 

MOV 

MOV 

ASL 

ROL 

SOB 

BCS 

MOV 

MOV 

MOV 

BIT 

BNE 

SOB 

BR 

MOV 

MOV 

MOV 

BIT 

BNE 

SOB 

MOV 

JSR 

.UORD 

BR 

MOV 

JSR 



(SP) 
KSP) 



$R00CT 



5$ 

$HIQCT 
5$ 

$TMP2.(SP) 

$TMP3.$HI0CT 

R4,$Ht0CT 

4$ 

6$ 

R3.(SP) 
4$ 



#BltPT.Rl 

#SAVTST.R2 

(Rl) + .(l^2)* 

R0.7$ 

R3.$HI0CT 

8$ 

11$ 

R4,(SP) 
lli 

#40000. R4 



R3 

#17.R0 
ffiltPT.Rl 



R0,9$ 
13 i 
#20.R0 
#BltPT.Rl 
#MEMMAP.R2 
(Rl)*.(ft2)* 
6$ 

R0,10$ 
8$ 

#20.R0 

*6ltPT.Rl 

#MEMMAP,R2 

(Rl)+,(ft2)t 

14$ 

R0.12$ 

#STACK,SP 

R5. $PRINT 

6a6adr 

MANUAL 

#STACI<,SP 

R5, $PRINT 



PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSU RETURN. 
GO TO THE SUBROUTINE 
CHECK IF LOU BITS ZERO 
IF NOT.NO DEFAULT 
CHECK If HIGH BITS ZERO 
IF NOT.NO DEFAULT 
IF BOTH ZERO. FILL IN DEFAULT 
FOR LOW AND HIGH BITS 
CHECK FOR LAST ADDR. BELOW FIRST 
IF YES....REASK 
IF LAST HIGHER GO ON 
IF EQUAL CHECK LOW BITS 
IF LOW BITS LOWER... REASK 
TABLE COUNTER 



STORE BITPT IN SAVTST MAP 
DO 16. TIMES 

COMPARE HIGH BITS OF FIRST TO LAST 

IF LOWER SEE IF NEXT BANK EXISTS 

IF HIGHER MUST BE LAST BANK 

IF EQUAL CHECK LOW BITS 

IF LOW BITS FIRST HIGHER LAST BANK 

UPDATE TO NEXT BANK 



SET UP TO UPDATE POINTER 
GET START ADDRESS OF TABLE 
ROTATE POINTER WITHIN 
TABLE 

UNTIL ALL LOCATIONS DONE 

BANK DOESN'T MAP 

SET UP TO SEE IF ONE EXISTS 

GET START ADDRESS OF POINTER TABLE 

GET START aODRESS OF MEMORY TABLE 

TEST IF BANK <^XISTS 

IF MATCH UPDAiE 

00 ALL OF TABLE 



MAKE SURE LAST BANK 
WAS MAPPED BY MEMORY 
SIZING ROUTINE 



RESET STACK 

GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"?ADDRESS IN UNMAPPED BANK?" 
LOOP BACK AND START OVER 
RESET STACK 

GO PRINT OUT THE FOLLOWING MESSAGE. 
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.UORD CONST 



SEQ 0046 



1912 



1913 
1914 
1915 
1916 
1917 
1918 



006752 106746 

006 /54 105066 000001 

006760 004767 012612 

006764 012667 172774 

006770 032777 000040 

006776 001403 

007000 012767 001000 



; ADDRESS OF MESSAGE TO BE TYPED 
•"SELECT CONSTANT- " 
i* THE NEXT TWO INSTRUCTIONS PR6vIDE AN INTERFACE TO THE JRDOCT ROUTINE 
;* UIHTpyi_USING.A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC** 



172132 
172754 



MFPS 
CLRB 

JSR 
MOV 

MANUL2: BIT 
BEQ 
MOV 



■(SP) 
KSP) 

PC. $RD0CT 
(SP)*, .CONST 
#SU05,SSUR 

startI 

*1000.FSTA0R 



PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSU RETURN. 
GO TO THE SUBROUTINE 
SAVE THE DATA 
IS VECTOR AREA PROTECTED? 
IF NO.GO ON 

IF YES, SET STARTING ADDRESS = 1000 



1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1948 



.REPT 1 

;* THE REST OF THE PROGRAM IS POSITION INDEPENDENT CODE. SO THAT IT CAN EXECUTE PROPERLY WHEN THE PROGRAM HAS BEEN RELOCATE 
.•*^pTHIS^I5 DONE SO THAT THE FIRST TWO BANKS OF MEMORY cAn BE EXERCISED IN EXACTLY THE SAME MANNER AS THE REST OF MEMORY 

\*/:\*/:\*/:\*/:\*/:\*/:\*/:\*/:\* 



./':\*/:\*/:\*/:\*/:\*/:\*/:\*/ 

007006 016706 172772 

007012 012700 

007016 016701 

007022 016702 

007026 012122 

007030 077002 

007032 046767 

007040 012767 

007046 066767 

0C7054 004767 

007060 005767 

007064 001406 

007066 032737 

007074 001002 

007076 004767 



000020 
172766 
172764 



171476 
007006 
171460 
006660 
171452 



\*/:\*/: 
STARTI: 



1$: 



172514 
172030 
172022 



000001 177572 



003676 



MOV 
MOV 
MOV 
MOV 
MOV 
SOB 
BIC 
MOV 
ADD 
JSR 
TST 
BEQ 
BIT 
BNE 
JSR 



STACK. SP 
#20, RO 
.SAVTST.Rl 
.TS^MAP.R2 
(Rl)*.(ft2)> 
R0.1$ 

PRGMAP.TSTMAP 
#STARTi.*LPADR 
RELOCF, $LPADR 



PC 

mmAva 

TSTl 
*BITO. 
TSTl 
PC. 



MAMF 



9«SR0 
MMINIT 



SET STACK POINTER 
SET UP TO LOAD 20 LOCATIONS 
SOURCE TO BE SAVTST TABLE 
DESTINATIION TO BE TEST MAP 
INIT TESTING TABLE 
LOOP UNTIL DONE 

DON'T TEST WHERE PROGRAM IS LOCATED. 
INIT LOOP ADDRESS. 

SET UP MEMORY PARITY ERROR VECTOR 
CHECK FOR MEMORY MANAGEMENT AVAILABLE. 
BRANCH IF NO MEM MGMT. 
CHECK IF MEM MGMT ENABLED. 
BR IF MEM MGMT ENABLED. 
SET UP MEM MGMT REGISTERS. 



1949 
1950 
1951 
1952 
1953 
1954 



007102 
007102 

007106 
007112 
007114 
007120 
007122 
007124 
007126 
007130 



SBTTL SECTION 1; MEMORY ADDRESS TESTS 

*TEST 1 WRITE VALUE OF MEMORY ADDRESS INTO MEMORY 

* RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 

* Rl = DATA READ FROM MEMORY (WAS) 

* R2 = VIRTUAL ADDRESS 

* R3 = NOT USED 

* R4 = NOT USED 

* R5 = BLOCK BOUNDARY BIT MASK. 



004567 010424 

004467 004044 
010200 

004767 005156 

010012 

012201 

020001 

001405 

004767 00"'646 



tSTl 

JSR R5 $SC0PE 
UPWARDS WORD a6dRESSING. 



JSR 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
30014$: JSR 



2$ 



R4. 
R2. 
PC. 
RO. 

(R^)*. 

306l5$ 
PC. 



INITMM 
RO 

PHYADR 
(R2) 
Rl 
Rl 

SPRNT2 



;G0 TO SCOPE ROUTINE. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET UP TO CALCULATE PHYSICAL ADDRESS 
GET PHYSICAL ADDRESS INTO RO 
WRITE VALUE OF ADDRESS INTO ADDRESS 
GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 



_4 

CVMSAB 
Tl 
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WRITE VALUE OF MEMORY ADDRESS INTO MEMORY -» ^o- ^ rage 



SEQ 0047 



007134 
007140 
007J42 

1955 007142 

1956 007146 
007150 

1957 
1958 
1959 

1960 007154 

1961 007160 

1962 007162 

1963 007166 

1964 007172 

1965 007174 
00 "'176 
007200 
007204 
007210 
007212 

1966 007212 

1967 007216 
007220 



004767 
000002 

062700 
077514 
004767 



004467 
010200 
162700 
004767 
014201 
020001 
001405 
004767 
004767 
000002 

162700 
077513 
004767 



010704 

000002 
004214 

004074 

000002 
005104 



00755? 
010634 



000002 
004510 



30015$ ; 



JSR 
.WORD 

ADU 
SOB 
JSR 



PC. 
2 

#2. 
R5. 
PC. 



$ERR0R ;*** ERROR *** (GO TYPE A MESSAGE) 
: ERROR TYPE CODE. 



RO 
2$ 

MMUP 



!* CHECK THAT VALUE OF MEMORY 
;* DOUNUARDS UORD ADDRESSING. 



3$; 



4$: 



30016* : 



30017* ; 



JSR 
MOV 
SUB 
JSR 
MOV 
CMP 
BEQ 
JSR 
JSR 
.WORD 

SUB 
SOB 
JSR 



R4. 
R2. 
#2. 

-(1^2). 
RO, 

306l7* 

PC, 

PC. 

r1: 

PC. 



INITDN 
RO 
RO 

PHYADR 

Rl 

Rl 

SPRNTO 
TERROR 



RO 
4$ 

MMDOUN 



ADD #2 TO PHYSICAL ADDRESS 
BRANCH IF MORE IN CURRENT Bl '^'^K . 
FIND NEXT BLOCK AND LOOP TO 1>. 

ADDRESS WAS WRITTEN CORRECTLY 

INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET UP TO CALCULATE PHYSICAL ADDRESS 
GET LAST ADDRESS OF BLOCK 
GET PHYSICAL ADDRESS INTO 90 
GET THE DATA FROM MEMORY 
COMPARE THE CHECK WORD WITH THE DATA READ, 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
JSSo^'^598.*J5i«^GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

DEC DATA BY 2 

BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 3$. 



.4 

CVflSAB 
T2 

1969 
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URI7E VALUE OF MEMORY ADDRESS INTO MEMORY ^ 



SEQ 0048 



007224 
007224 

1970 

1971 007230 
'972 007234 

1973 007236 

1974 007242 

1975 007244 

1976 007246 

1977 007250 
007252 

1978 
1979 
1980 

1981 007256 

1982 007262 

1983 007264 

1984 007266 

1985 007272 

1986 007274 

1987 0C7276 

1988 007300 
007302 
007306 
007312 
007314 

1989 007314 

1990 007316 
007320 

1991 
1992 



007324 
007324 

1993 

1994 007330 

1995 007334 

1996 007336 

1997 007342 

1998 007346 

1999 007350 



004567 

004467 
010200 
004767 
006305 
110022 
005200 
077503 
004767 



004467 
010200 
005300 
004767 
006305 
114201 
120001 
001405 
004767 
004767 
000003 

005300 
077512 
004767 



010302 
003722 
005034 

004112 

003772 
005004 



007450 
010532 



004410 



004567 010202 

004467 003720 
010200 

162700 000002 
004767 004730 
005100 
010042 



*TEST 2 WRITE VALUE OF MEMORY ADDRESS INTO MEMORY 

* RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 

* Rl = DATA READ FROM MEMORY (WAS) 

* R2 = VIRTUAL ADDRESS 

* R3 = NOT USED 

* R4 = NOT USED 

* R5 = BLOCK BOUNDARY BIT MASK. 



t§T2: 

JSR R5. $SCOPE 
;* UPWARDS BYTE a6dRESSING- 



1$; 



2$: 



i* 
:* 

3$; 



4$; 



30018* : 



30019$ ; 



JSR 
MOV 
JSR 
ASL 
MOVB 
INC 
SOB 
JSR 

CHECK THAT 
DOWNWARDS 



R4. 
R2. 
PC. 
R5 
RO. 
RO 
R5. 
PC. 



INITMM 
RO 

PHYADR 
(R2) + 
2$ 

MMUP 



VALUE OF MEMORY 
BYTE ADDRESSING. 



JSR 


R4. 


INITDN 


MOV 


R2. 


RO 


DEC 


RO 




JSR 


PC. 


PHYADR 


ASL 


R5 




MOVB 


-(R2). 


Rl 


CMPB 


RO. 


Rl 


BEQ 


306l9$ 


JSR 


PC. 


SPRNTO 


JSR 


^- 


$ERROR 


.WORD 






DEC 


RO 




SOB 


R5. 


4$ 


JSR 


PC. 


MMDOWN 



:G0 TO SCOPE ROUTINE. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET UP TO CALCULATE PHYSICAL ADDRESS 
GET PHYSICAL ADDRESS INTO RO 
MAKE TEST COUNTER BYTE VALUE 
WRITE VALUE OF ADDRESS INTO ADDRESS 
ADO ONE TO PHYSICAL ADDRESS 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 

ADDRESS WAS WRITTEN CORRECTLY 

INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET UP TO CALCULATE PHYSICAL ADDRESS 
GET LAST BYTE ADDRESS OF BLOCK 
GET PHYSICAL ADDRESS INTO RO 
MAKE TEST COUNTER BYTE VALUE 
GET THE DATA FROM MEMORY 
CHECK THE DATA...LO BYTE ONLY VALID. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

DEC DATA BY 1 

BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 3$. 



*TEST 3 WRITE I'S COMPLEMENT VALUE OF ADDRESS INTO ADDRESS. 

* RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 

* Rl = DATA READ FROf^ MEMORY (WAS) 

* R2 = VIRTUAL ADDRESS 

* R3 = NOT USED 

* R4 = NOT USED 

* R5 = BLOCK BOUNDARY BIT MASK. 



JSR R5 $SCOPE 

:* DOWNWARDS WORD 'ADDRESSING. 

JSR R4. INITDN 

1$: MOV R2. RO 

SUB #2. RO 

JSR PC. PHYADR 

COM RO 

2$: MOV RO. (R2} 



.GO TO SCOPE ROUTINE. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET UP TO CALCULATE PHYSICAL ADDRESS 
GET LAST ADDRESS OF BLOCK 
GET PHYSICAL ADDRESS INTO RO 
COMPLEMENT THE ADR 
PUT DATA INTO MEMORY 



<4 

CVMSAB 
T3 

2000 
2001 

2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
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WRITE I'S COMPLEMENT \IAL\X. OF ADDRESS INTO ADDRESS. ^ 



SEO 0049 



007352 
007356 
007360 



2010 
2011 

2012 
2013 



007364 
007370 
007372 
0<D7376 
007400 
007400 
007402 
007404 
007406 
007412 
007416 
007420 
007420 
007424 
007426 



007432 
007432 

2014 

2015 007436 

2016 007442 

2017 007446 

2018 007450 

2019 007452 
007454 

2020 
2021 
2022 

2023 007460 

2024 007464 

2025 007470 

2026 007472 

2027 007474 

2028 007476 
007500 
007504 
007510 
007512 

2029 007512 
007514 

2030 
2031 



062700 000002 
077504 

004767 004350 



004467 
010200 
004767 
005100 

012201 
020001 
001405 
004767 
004767 
000002 

162700 
077513 
004767 



003566 
004700 



007370 
010426 



000002 
003736 



004567 010074 



004467 
004767 
006305 
110022 
077502 
004767 



004467 
004767 
006305 
112201 
120001 
001405 
004767 
004767 
000003 

077511 
004767 



003514 
004726 



003710 



003472 
004704 



007360 
010334 



003650 



ADO 
SOB 
JSR 



*2. 
R5. 
PC. 



RO 
2$ 

MMDOUN 



TO DATA- -ADR GOES DOWN SO COM GOES UP 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 



CHECK COMPLEMENT DATA WRITTEN DOWN 
UPWARDS WORD ADDRESSING. 





ICO 


DA 

H4 , 


INI inn 




MOV 




RO 




JSR 


PC, 


PHYAOR 




COM 


RO 




4): 










MOV 


(R2^. 


Rl 




CMP 


RO, 


Rl 


30020J : 


BEQ 


30021$ 


JSR 


PC. 


SPRNT2 




JSR 


PC. 


$ERROR 




.WORD 






30021$: 










SUB 


#2. 


RO 




SOB 


R5. 


4$ 




JSR 


PC. 


MMUP 



INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET UP TO CALCULATE PHYSICAL ADDRESS 
GET PHYSICAL ADDRESS INTO RO 
COMPLEMENT IT 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
**♦ ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

COUNT DOWN WITH ADDRESS 
BRANCH IF MORE IN CURRENT BLOCK 
FIND NEXT BLOCK AND LOOP TO 3$. 

♦TEST 4 WRITE B»NK * INTO ALL ADDRESSES IN A 8K BANK 

* RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 

* Rl = DATA READ FROM MEMORY (WAS) 

* R2 = VIRTUAL ADDRESS 

* R3 = NOT USED 

* R4 » NOT USED 

* R5 = BLOCK BOUNDARY BIT MASK. 

tST4: 

JSR R5. $SCOPE 
;* UPWARDS BYTE a6drESSING. 

JSR R4 . INITMM 

1$: JSR PC. BANKNO 

ASL R5 

2$: MOVB RO. (R2)* 

SOB R5. 2$ 

JSR PC. MMUO 



;G0 TO SCOPE ROUTINE. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 
:GET THE BANK NUMBER INTO RO 
;MAKE TEST COUNTER BYTE VALUE 
; WRITE BANK i INTO ALL ADDRESSES 
: BRANCH IF MORE IN CURRENT BLOCK. 
:FIND NEXT BLOCK AND LOOP TO 1$. 



;* CHECK THAT DATA WRITTEN ABOVE CAN BE READ 
:* UPWARDS BYTE ADDRESSING. 



3$; 
4$: 



30022$ : 



30023$; 



JSR 
JSR 
ASL 
MOVB 
CMPB 
BEQ 
JSR 
JSR 
.WORD 

SOB 

JSR 



R4. 
PC. 

R5 
(R2)^. 
RO. 

30623$ 
PC. 



INITMM 
BANKNO 

Rl 
Rl 

SPRNTl 
$ERROR 



4$ 

MMUP 



INITIALIZE THE MEMORY ADDRESS POINTERS. 
GET THE BANK NUMBER INTO RO 
MAKE TEST COUNTER BYTE VALUE 
READ THE DATA OUT OF MEMORY 
CHECK DATA.... LOW BYTE ONLY VALID 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

BRANCH IF MORE IN CURRENT BLOCK 
FIND NEXT BLOCK AND LOOP TO 3$. 
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T5 URrE I'S COMPLEMENT OF BANK #. 
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007520 
00/520 

2032 

2033 007524 

2034 007530 

2035 007534 

2036 007536 

2037 007540 

2038 007542 
007544 

2039 
2040 
2041 

2042 007550 

2043 007554 

2044 007560 

2045 007562 

2046 007564 

2047 007566 

2048 007570 
007572 
007576 
007602 
007604 

2049 007604 
007606 

2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 

2058 007612 

2059 007620 

2060 007622 

2061 007626 

2062 007632 

2063 007634 

2064 007636 

2065 007642 

2066 007646 

2067 007652 
2068 

2069 
2070 
2071 
2072 



004567 010006 



004467 
004767 
006305 
005100 
110042 
077502 
004767 



004467 
004767 
006305 
005100 
114201 
120001 
001405 
004767 
004767 
000003 

077511 
004767 



032767 
001014 
012700 
016701 
005021 
077002 
016700 
042700 
010067 



003524 
004640 



004164 



003500 
004614 



00^60 
010242 



004122 



TEST 5 WRITE 1 S COMPLEMENT OF BA!J< *. 

RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 

Rl = DATA READ FROM MEMORY (UASl 

R2 = VIRTUAL ADDRESS 

R3 = NOT USED 

R4 = NOT USED 

H5 = BLOCK BOUNDARY BIT MASK. 

tiT5: 



JSR R5 $SCOPE 
;* DOUNUARDS BYTE 'ADDRESSING. 



1$; 



2$: 



JSR 
JSR 
ASL 
COM 
MOVB 
SOB 
JSR 



R4. 
PC. 
R5 
RO 
RO. 
R5. 
PC. 



INITDN 
6ANKN0 



-(R2) 
2$ 

mOOUN 



:G0 ^0 SCOPE ROUTINE. 

INITIALIZE THE MEMORY ADDRESS POINTERS 

GET THE BANK NUMBER INTO RO 

MAKE TEST COUNTER BYTE VALUE 

I'S COMPLEMENT OF BANK # 

PUT I'S COM OF BANK # INTO MEMORY 

BRANCH IF MORE IN CURRENT BLOCK. 

FIND NEXT BLOCK AND LOOP TO 1$. 



;* CHECK THAT DATA WRITTEN CAN BE READ. 
;* DOUNUARDS BYTE ADDRESSING. 



3J; 



4$: 



30024J : 



30025$ : 



JSR R4. INITDN INITIALIZE THE MEMORY ADDRESS POINTERS 

JSR PC. BANKNO ;GET THE BANK * INTO RO 

ASL R5 iMAKE TEST COUNTER BYTE VALUE 

COM RO : SET I'S COMPLEMENT OF BANK # 

MOVB -(R2). Rl ;READ DATA OUT OF MEMORY 

CMPB RO. Rl ; CHECK DATA... LOW BYTE ONLY VALID 

BEQ 30625$ ;BRANCH OVER ERROR CALL IF GOOD DATA. 

JSR PC. SPRNTO ;SET UP VALUES FOR ERROR PRINTING. 

JSR PC. $ERROR J*** ERROR *** (GO TYPE A MESSAGE) 

.WORD 3 ; ERROR TYPE CODE. 

SOB R5. 4$ ; BRANCH IF MORE IN CURRENT BLOCK. 

JSR PC, MMDOUN ;FIND NEXT BLOCK AND LOOP TO 3$. 



IF PROGRAM HAS RELOCATED TO UPPER 80UNDARY.THE ADDRESSING 

TESTS WILL BE EXECUTED FOR ALL BANKS AND w6RST CASE NOISE TESTING 

WILL BE LIMITED TO BANKS 0.1. 

ALL OTHER BANKS WILL BE EXERCISED FOR WORST CASE NOISE TESTING 
WHEN THE PROGRAM OCCUPIES BANKS 0.1. 



000001 170714 

000020 
172160 



171752 
177776 
171702 



SECT2: BIT 
BNE 
MOV 
MOV 
CLR 
SOB 
MOV 
BIC 
MOV 

2$: 



1$; 



«6IT0.PRGMAP 
2$ 

it20.R0 

.TSTMAP.Rl 

(Rl)» 

R0.1$ 

SAVTST.RO 

#17777^, RO 

ro.tstmAp 



IS PROGRAM RELOCATED 
IF NO. CONTINUE TESTING ALL BANKS 
CLEAR ALL LOCATIONS OF TEST MAP 
TEST MAP TABLE 

LOOP UNTIL DONE 
GET LOWER 128K MAP 
DO ONLY FIRST BANK 
FOR DATA TESTS 
CONTINUE TESTING 



.SBTTL SECTION 2: WORST CASE NOISE TESTS 

; ; ************************** *«***4l«************««****«i*******«** 

;* THESE TESTS WRITE *1EM0Rr WORST CASE NOISE TEST PATTERNS THROUGHOUT 
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SEQ 0051 



2073 
2074 
2075 



007652 

007652 004567 007654 

2076 007656 016700 172102 

2077 007662 004467 003270 

2078 007666 010022 

2079 007670 077502 
007672 004767 003472 

2080 
2084 



007676 
007676 

2085 007702 

2086 007706 

2087 007712 
0C7712 
007714 
007716 
007720 
007724 
007730 
007732 

2088 007732 
007734 

2090 
2091 
2092 

2093 007740 

2094 0077^6 

2095 007750 

2096 007754 

2097 007760 

2098 007764 

2099 007766 

2100 007774 

2101 010002 
2103 

2104 



004567 
016700 
004467 

012201 
020001 
001405 
004767 
004767 
000004 

077511 
004767 



032777 
001416 
017746 
042716 
022726 
001007 
162767 
162767 
000725 



010004 

010004 004567 007522 



* MEMORY AND CHECK THAT THEY CAN BE WRITTEN AND READ. 

; *************************************************************** 
; *************************************************************** 

*TEST 6 WRITE A CONSTANT INTO MEMORY. 

:* THE CONSTANT IS USER SELECTABLE (DEFAULT « 0). 
;* ftO = DATA WRITTEN INTO MEMORY (SHOULD BE) 
;* Rl = DATA READ FROM MEMORY (WAS) 
:* R2 = VIRTUAL ADDRESS 
;* R3 = NOT USED 

;* R4 = NOT USED 
;* R5 = BLOCK BOUNDARY BIT MASK. 
*************************************************************** 



t§T6: 

JSR 

TST6A: MOV 
JSR 
MOV 

SOB 
JSR 



1$: 



R5. «COPE 

.c6nst. RO 

R4, INITMM 

RO. (R2)+ 

R5. 1$ 

PC. MMUP 



GO TO SCOPE ROUTINE. 
GET USER CONSTANT 

INITIALIZE THE MEMORY ADDRESS POINTERS. 
WRITE CONSTANT INTO MEMORY. 
BRANCH IF MORE IN CURRENT BLOCK 
FIND NEXT BLOCK AND LOOP TO IJ. 



007630 
172056 
003244 



007056 
010114 



003430 



000400 171162 

171154 
177740 
000006 

000001 171076 
000024 171074 



;**************** **************i«*************«««««««*«***«**««« 

*TEST 7 READ MEMORY AND COMPARE TO CONSTANT. 

* IMPORTANT: THIS TEST SHOULD NOT BE RUN WITHOUT FIRST RUNNING TEST $TN. 
***************************************************************** 

t5T7: 

JSR R5. $SCOPE :G0 TO SCOPE ROUTINE. 

MOV .CONST. RO :PPT USER CONSTANT 

JSR R4. INITMM .-INITIALIZE THE MEMORY ADDRESS POINTERS. 



1$ 



30026$; 



30027$: 



MOV 
CMP 
6EQ 
JSR 
JSR 
.WORD 



(R2)>. 
RO. 

30627$ 
PC. 



Rl 
Rl 

SPRNT2 
$ERROR 



SOB 
JSR 



R5. 
PC. 



GET THE DATA FROM MEMORY 'JNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 



1$ ; BRANCH IF MORE IN CURRENT BLOCK 
. MMUP ; FIND NEXT BLOCK AND LOOP TO 1$. 

* SPtCIAL CHECK TO SEE IF TEST 6 IS SELECTED THRU THE SWR. 

* ALLOWS THE OPERATOR TO SWITCH BACK AND FORTH BET'JEEN TESTS 6 
TOGGLING" SWOO WHEN SWOU SW02. AND SW08 ARE SET, 

#SW08, 3SWR ■ 



BY 



SIMPLY 
BIT 
BEQ 
MOV 
BIC 
CM^ 
BNE 
SUB 
SUB 
BR 



AND 7 



TSTIO 

8SWR. -(SP) 
*177)40,(SP) 
#6. (SP^ 
TStlO 

n. $TSTNM 
fT$T7-TST6.$LPA0A 



TST6A 



CHECK tHAT l60P ON TEST BIT SET 
BRANCH IF NOT LOOP ON TEST 
GET SWITCH REGISTER DATA. 
CLEAR NON-TEST-NUMBER SWITCHS. 
CHECK IF TEST 6 IN SWITCHES. 
BRANCH IF NOT TEST 6 
RESET TEST NUM 
RESET LOOP ADR 



;G6 TO TEST 6 



; ; *************************************************************** 

;*TEST 10 WORSE CASE NOISE (PARITY) WORD TESTING 

;* CHECK MEMORY WITH A SERIES OF PATTERNS 

: ;*************************************************************** 

t§T10: 

JSR R5. $SCOPE :G0 TO SCOPE ROUTINE. 



N 



4 

CVMSAB 
TIO 

^105 
2106 
2107 
2108 
2109 
2110 
2111 
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UORSE CASE NOISE (PARITY) WORD TESTING c h 



SEQ 0052 



2112 
2113 



010010 

010014 

010020 

010022 

010024 

010030 

010032 

010034 

010036 

010040 

010044 

010050 

010052 

010052 

010054 

010060 



016704 
004767 
012400 
001417 
004467 
010012 
012201 
020001 
001405 
004767 
004767 
000004 

077512 
004767 
000755 



172014 
006020 



003126 



006736 
007774 



003310 





MOW 


1* : 


JSH 




MOV 




BEQ 




JSR 


t 

cf : 


MAI/ 

nOV 




MOV 




LMP 






30028J. 


JSR 




JSR 




.UORO 


30029$: 






SOB 




JSR 




BR 



.MPPAT. 
PC, 

TSTll 
RO, 

30629$ 

PC. 

PC. 



R5. 

?5- 



R4 

CKPMER 
RO 

INITMM 
(R2) 
Rl 
Rl 

SPRNT2 
$ERROR 



2i 

MMUP 



INITIALIZE PATTERN TABLE POINTER 

CHECK FOR NON-TRAP PARITY MEMORY ERRORS. 

GET THE DATA PATTERN. 

:BR IF END OF TABLE. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

PUT DATA PATTERN INTO MEMORY. 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK UORD UITH THE DATA READ, 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

^^^ni''?9L*^^,^^G0 ^^PE * MESSAGE) 
ERROR TYPE CODE. 

BRANCH IF MORE IN CURRENT BLOCK 
FIND NEXT BLOCK AND LOOP TO 2$. 
BR BACK TO 00 NEX^ PATTERN 



CVHSAB 
Til 

2115 
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ROTATE A '0- BIT THROUGH A FIELD OF ONES. ^ 





010062 








010062 


004567 


007444 


2116 


010066 


012700 


177777 


2117 


010072 


004767 


004364 


2118 


010076 


004467 


003054 


2119 010102 


000241 




2120 010104 


004767 


004370 
r7776 


2121 


010110 


016201 


212? 


010114 


103402 




2123 


010116 
010120 


020001 
001405 






010122 


004767 


006654 




010126 


004767 


007712 




010132 


000005 






010134 






2124 


010134 


077516 






010136 


004767 


003226 



2125 
2126 



010142 
010142 

2127 010146 

2128 010150 

2129 010154 

2130 010160 

2131 010162 

2132 010166 

2133 010172 

2134 010174 
010176 
010200 
010204 
010210 
010212 

2135 010212 
010214 

2136 



004567 
005000 
004767 
004467 
000261 
004767 
016201 
103002 
020001 
001405 
004767 
004767 
000005 



007364 

004306 
002776 

004312 
177776 



006576 
007634 



077516 

004767 003150 



ROTATE A "0' BIT THROUGH A FIELD OF ONES. 



;*TEST 11 

Utii 



1$: 



63$: 



30030$: 



JSR 
MOV 
JSR 
JSR 
CLC 
JSR 
MOV 
BCS 
CMP 
BEQ 
JSR 
JSR 
.UORO 

SOB 
JSR 



R5 



i. 



PC. 
R4. 



$SCOPE 
RO 

SETCON 
INITMM 



PC, ROTATE 

-2(R2). R1 
63$ 

RO, Rl 
30630$ 

PC. SPRNT2 

PC. $ERROR 
5 



R5. 
PC, 



1$ 

MMUP 



GO TO SCOPE ROUTINE. 
SET CHECK WORD 

PUT THE CONTENTS OF RO IN ALL MEMORY. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
CLEAR CARRY BIT IN PSU 

GET RESULT 

BRANCH IF 'C BIT WAS SET 

COMPARE THE CHECK WORD WITH THE DATA READ 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

**♦ ERROR **♦ (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

; BRANCH IF MORE IN CURRENT BLOCK 
jFIND NEXT BLOCK AND LOOP TO 1$. 



::**** 

;*TEST 

::**♦* 

tSTl2: 



12 ROTATE A "1" BIT THROUGH A FIELD OF ZEROS 



1$: 

63$: 
30031$: 



JSR 
CLR 
JSR 
JSR 
SEC 
JSR 
MOV 
BCC 
CMP 
BEQ 
JSR 
JSR 
.UORO 

SOB 
JSR 



R5. 
RO 
PC. 
R4. 



$SCOPE 

SETCON 
INITMM 



PC, ROTATE 

-2(R2). Rl 
63$ 

RO, Rl 
30631$ 

PC, SPRNT2 

PC, $ERROR 



R5. 
PC. 



1$ 

MMUP 



GO TO SCOPE ROUTINE. 
SET CHECK WORD 

PUT THE CONTENTS OF fiO IN ALL MEMORY 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET 'C BIT IN PSU 
GO ROTATE '1' BIT 
GET RESULT 

BRANCH IF 'C IS CLEAR 

COMPARE THE CHECK UORD WITH THE DATA READ 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

; BRANCH IF MORE IN CURRENT BLOCK 
jFINP NEXT BLOCK AND LOOo TO 1$. 



CVMSAB 

T13 

214^ 
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SEQ 0054 



010220 
010220 

2148 010224 

2149 010230 

2150 010232 

2151 010240 

2152 010242 

2153 010246 

2154 010250 

2155 C10254 
2156 

2157 

2158 010260 

2159 010262 

2160 010266 

2161 010272 

2162 010276 

2163 010300 

2164 010302 

2165 010304 
2166 

2167 010306 

2168 010312 

2169 010316 

2170 010322 

2171 010326 

2172 010330 

2173 010334 
2174 

2175 010340 

2176 010342 
010344 
010350 
010354 
010356 

2177 010356 

2178 010362 

2179 010366 

2180 010370 

2181 010374 

2182 010402 

2183 010406 

2184 010410 
2185 

2136 010412 

2137 010414 
2188 010420 



004567 
005767 
001404 
032777 
001402 
000167 
005000 
004767 
004467 



006305 
012700 
016701 
016703 
032123 
001004 
077003 
060502 

000167 
004767 
004767 

020227 
001004 
062702 
162705 

111201 
001405 
004767 
004767 
000011 

105067 
112700 
110012 
016703 
056773 
052733 
005713 
001371 

110012 
016703 
046733 



007306 
173142 

000100 

000760 

004206 
002676 



000020 
171524 
171516 



000704 
005466 
005516 
000114 

000004 
000004 



006344 
007470 



171376 
000252 

171430 

171366 
000001 



171404 
171342 



************* 

TEST 13 WORSE CASE NOISE PARITY BYTE TESTING 

CHECK PARITY MEMORY WITH A SERIES Or BYTE PATTERNS 

1) FORCE WRONG PARITY IN EACH BYTE OF PARITY MEMORY 

READ IT BACK WITH ACTION ENABLE SET. MAKING SURE THAT A TRAP OCCURS 
WRITE GOOD PARITY AND MAKE SURE NO fPAP OCCURS WHEN IT IS READ 
MAKE SURE THE ERROR ADDRESS BITS (CSR BITS <ll-5>) ARE CORRECT 
IF MMU ENABLED AND ABOVE 128KW. CHECK BII14 AND BITS <ll-5> 
ON PARITY CSR. 

t§T13: 



I] 



170670 



WWPBO: 



2$; 



JSR 
TST 
BEQ 
BIT 
BEQ 
JMP 
CLR 
JSR 
JSR 



ASL 

UUPBYT: MOV 
MOV 
MOV 

1$: BIT 
BNE 
SOB 
ADO 



2$: 

UWPBl: 
3$: 



JMP 
JSR 
JSR 
CMP 
BNE 
ADD 
SUB 



MOVB 
BEQ 

30032$: JSR 
JSR 



30033$ ; 



.WORD 



000000 10$ 



CLRB 
MOVB 
WWPB2: MOVB 
MOV 
BIS 
BIS 
TST 
BNE 

:* SET WRONG 
MOVB 
MOV 

11$: BIC 



MPftX 
1$ 

i^SW06. 
2$ 

TST14 
RO 
PC. 
R4. 



R5 
#20 



$SCOPE 



SSWR 



SETCON 
INITMM 



...v. RO 
.BitPT. Rl 
.PMEMAP.R3 
(Rl)+.(ft3) 
2$ 
RO. 
R5. 



1$ 
R2 



UUPB6 

PC. 

PC. 

R2, 

3$ 

*4. 

#4. 

(R2). 
30033$ 
PC, 
PC. 

11 

OEFLG 
*252. 



SETAE 

CKPMER 

*114 

R2 
R5 

Rl 

SPRNT 
$ERROR 



RO 
(R2) 
R3 



.M^RX, 
WWP,a(R3) 
#AE.a(R3)* 
(R35 
10$ 

PARITY IN LOCATION 
RO. (R2) 
.M^RX. R3 
WWP, 9(R3)^ 



GO TO SCOPE ROUTINE. 
CHECK FOR ANY PARITY MEMORY. 
BR IF NO PARITY MEMORY. 
CHECK FORINHIBIT PARITY SWITCH. 
BR IF NOT SET. 

SKIP THIS TEST IF NO PARITY MEMORY PRESENT. 
ZERO TO BE PUT IN ALL MEMORY. 
ROUTINE TO LOAD ALL MEMORY. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 

RETURN FOR MMUP 

MAKE TEST COUNTER BYTE VALUE 

TABLE COUNT 

BANK POINTER TABLE 

PARITY TABLE 

CHECK IF CURRENT BANK HAS PARITY MEMORY 

BRANCH IF PARITY MEMORY 

CHECK TILL END OF TABLE 

IF NONE FOUND POINT R2 TO 

FIRST ADDR OF NEXT BANK. 

FIND NEXi BLOCK 

SET ACTION ENABLE (EVEN IF BANKO.) 

CHECK FOR ANY NON TRAP PARITY ERRORS. 

CHECK IF POINTING TO PARITY ERROR VECTOR. 

BR IF NOT AT VECTOR. 

SKIP PARITY VECTOR. 

SKIP PARITY VECTOR 

SUBTACT 4 FROM TEST COUNTER 

CHECK IF BYTE STILL CLEARED. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTINC. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

CLEAR ODD/EVEN FLAG. 

SET UP DATA... EVEN. SETS PARITY BIT. 

MOV DATA INTO TEST LOCATION. 

GET PARITY REGISTER TABLE POINTER. 

SET WRITE WRONG PARITY. 

CHECK FOR TABLE TERMINATOR. 
BR IF MORE REGS IN TABLE. 
UNDER TEST. 

WRITE SAME DATA (EXCEPT PARITY) VIA DATOB. 
GET PARITY REG TABLE POINTER. 
CLEAR WRITE WRONG PARITY. 
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SEQ 0055 



2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 



2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2221 
2223 
2224 
2225 
2226 
2227 



010424 005713 

010426 001374 

010430 005767 171342 

010434 001402 

010^36 105712 

010440 000433 

010442 016737 171360 000114 12$: 



010450 
010454 
010456 
010460 
010464 



010470 
010476 
010502 
010506 
010510 
010514 



2228 
2229 
2230 
2231 
2232 
2233 
2234 



2235 

2236 
2237 
2233 



010520 
010526 
010530 
010534 
010540 
010542 
010546 
010550 
010554 
010560 
010562 
010566 
010572 
010574 
010576 
010602 



010604 
010610 
010614 
010616 
010616 
010620 
010622 
010626 



005767 171324 

001404 

105712 

005767 173260 
000401 



010466 105412 



016737 
022626 
016703 
032713 
001003 
017301 
100413 
062703 
020367 
103765 
004767 
004767 
000013 
000572 
004567 
000405 



004767 
004767 
000014 

010046 
010200 
042700 
000300 



006142 
007230 



003777 



CHECK FOR TABLE TERMINATOR. 
BR IF MORE PARITY REGISTERS. 
CHECK IF RUNNING ON EARLIER LSI-11/2 
BR IF 11/23 OR LATER PROCESSOR 
PARITY TRAP LOGIC NOT AVAILABLE ON LSIll/2 
SET PARITY ERROR WITH READ AND BYPASS 
PARITY TRAP AND TEST PARITY CSR. 
_ :SET UP VECTOR FOR EXPECTED ^RAP. 
:* DETECT URONG PARITY VIA DATIO; DATOB SHOULDN'T EXECUTE. 

; ; VK********************************************************************** 

;:VK CHECK FOR KDJll-DA (11/53) PROCESSOR 





\T\0 3 


BNE 


11$ 


TST 


LSIFLG 


BEQ 


12$ 


TSTB 


(R2) 


BR 


PBTRPl 


MOV 


.PBTRP, a*PARVEC 



TST 
BEQ 
TSTB 
TST 
BR 



KOJOA 
14$ 
(R2) 
START 
16$ 



14$ 



VK^tt^t^AttAtA^AM^ttt^AAttAEND OF KDJDA CHECK************************** 



NEGB 



(R2) 



016737 171336 000114 

004767 006254 

004767 007336 
000012 

004767 006156 

000167 000442 



SHOULD HAVE TRAPPED TO PBTRP 



16$: MOV 
30034$: JSR 
JSR 
.WORD 
JSR 
JMP 



.PESRV. 3*PARVEC 
PC. SPRNTO 
PC. $ERROR 
12 

PC.CLRPAR 

uura4 



171306 000114 

171266 
000001 

000000 

000044 
171244 

006170 
007252 



005344 



:* EXPECTED 
I^BTRP: MOV 
CMP 

PBTRPl: MOV 
21$: BIT 
BNE 
MOV 
BMI 

22$: ADD 
CMP 
BLO 

30035$: JSR 
JSR 
.UORD 
BR 

23$: JSR 
BR 



30036$: JSR 
JSR 
.WORD 

24$: 

MOV 
MOV 
BIC 
SUAB 



PARITY MEMORY TRAPS 

.PESRV. 8#PARVEC 

(SP)*. (SP)* 

.MPRO, R3 

#BITO, (R3) 
22$ 

a(R3), Rl 
23$ 



*44. 

R3, 
2li 
PC. 
PC. 
13 

UUPB4 
R5, 
24 J 



PC. 
PC. 
14 



R3 
.MPRX 

SPRNTO 
$ERROR 



PARMAT 



SPRNTP 
$ERROR 



RO.-(SP) 
R2. RO 
#3)77. RO 
RO 



jDATIO (DATOB AND COM PARITY BIT.) 

: RESET VECTOR FOR UNEXPECTED TRAPS. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

CLEAR ALL PARITY CSRS BEFORE NEXT BYTE 
SKIP TRAP SERVICE. 



COME HERE. 

:RESET PARITY VECTOR "^GR UNEXPECTED TRAPS. 

fiESET THE STACK POINTER AFTER TRAP. 

GET PARITY REG AND MAP TABLE POINTER. 

CHECK IF THIS REGISTER EXISTS. 

BR IF IT DOESN'T EXIST. 

GET THE CONTENTS. 

BR IF ERROR FLAG SET. 

MOVE POINTER TO NEXT REG. 

CHECK FOR END OF TABLE. 

BR IF MORE REGISTERS. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

EXIT AFTER ERROR. 

CHECK FOR MAP OF THIS REGISTER 

BRANCH IF THIS PARITY REGISTER 

CONTROLS THIS BANK. 

RETURN +2, ERROR .CANNOT FIND MEM BANK 

IN PARITY MAP TASlE. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

:PUSH RO ON STACK 
6ET the address POINTER. 
CLEAR LOU ADDRESS BITS. 
SHIFT 6 PLACES RIGHT. 



CVHSAB 
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SEQ 0056 



2239 010630 

2240 010632 

2241 010634 

2242 010640 

2243 010642 

2244 010646 

2245 010652 

2246 010656 

2247 010660 

2248 010664 

2249 010670 

2250 010676 

2251 010702 
2252 

2253 010706 

010710 
010712 
010716 
010722 
010724 

2254 010724 

2255 010730 

2256 010732 

2257 010740 

2258 010742 

2259 010744 
2260 

2261 010752 

2262 010756 

2263 010762 

2264 010764 

2265 010766 

2266 010772 

2267 010776 

2268 011002 
011004 
011006 
011012 
011016 
011020 

2269 011020 

2270 011022 

2271 011026 

2272 011030 

2273 011034 

2274 011040 

2275 011042 

2276 011046 

2277 011050 

2278 011054 

2279 011056 
011062 
011066 

2230 011070 
2281 011072 
2232 
2283 



006300 
006300 
005767 
001411 
042700 
063700 
032702 
001402 
062700 
052700 
016367 
046700 
046701 

020001 
001405 
004767 
004767 
000015 

005767 
100034 
022737 
101030 
010046 
052773 

D13700 
042700 
000300 
006300 
052700 
017301 
042701 
020001 
001405 
004767 
004767 
000015 

012600 
005073 
010346 
062703 
020367 
101014 
032713 
001370 
017301 
100365 
004767 
004767 
000016 
000757 
111204 



167676 

177600 
172344 
020000 

000200 
100001 

000042 170610 

170604 

170600 



006034 
007122 



167606 

010000 172344 

040000 000000 

172344 
007777 



ASL RO 

ASL RO 

TST MMAVA 

BEQ 25$ 

BIC *177600.R0 

ADD a#KIPAR2.R0 

BIT #6IT13. ft2 

BEQ 25$ 

ADD #200, RO 

BIS #6ITi5*BIT0.R0 

MOV 42(R3). RESftVD 

BIC RESRVD. RO 

BIC RESRVD. Rl 
;NOTE: THE ABOVE INSTRUCTION (2 



25$: 



140001 

000000 
030032 



005740 
007026 



000000 

000044 
170764 

000001 

000000 

005670 
006756 



30037$; 



30038$ : 



30039$ : 



30040$: 
100$: 
26$: 



30041$ 



UUPB3: 



CMP 

BEQ 
JSR 
JSR 
.UORD 

TST 
BPL 
CMP 
BHI 
MOV 
BIS 

MOV 

BIC 

SUA6 

ASL 

SIS 

MOV 

BIC 

CMP 

BEQ 

JSR 

JSR 

.UORD 

MOV 
CLR 
MOV 
ADD 
CMP 
BHI 
BIT 
BNE 
MOV 
BPL 
JSR 
JSR 
.UORD 
BR 

MOVB 



RO. 

30038$ 
PC. 
PC 
15' 



Rl 

SPRNTP 
$ERR0R 



MMAVA 
100$ 

*10000.a#KIPAR2 
100$ 

RO.-(SP) 
#BiT14,a(R3) 

a*KIPAR2,R0 
#7777. RO 
RO 
RO 

#BIT15!BIT14!AE. 
3(R3).R1 
#30032, Rl 
RO. Rl 
30640$ 

PC , SPRNTP 
PC, $ERRQR 
15 

(SP)*,RO 
3(R3) 
R3.-(SP) 



#44. 
R3. 
UUPB3 
#BITO, 
26$ 
a(R3J, 
26$ 
PC. 
PC. 
16 
26$ 
(R2). 



R3 
.MPRX 

(R3) 

Rl 

SPRNTP 
$ERROR 



R4 

;* READINGTHE DATA'VIA DATI TO 
;* ACTION ENABLE IS NOT SET IN 



CHECK FOR MEM MGMT. 
BR IF NO MEM MGMT. 
CLEAR BANK BITS 
ADD MEM MGMT OFFSET. 
CHECK FOR PAR3 REF. ADDRESSING 
BR IF R2 IS ADDRESSING PAR2 
SET UP EXPECTED UITH PAR3 
SET ERROR AND AE BIT IN CHECK WORD. 
GET APPROPIATE MASK. 

CLEAR PARITY REG BITS RESERVED FOR FUTURE. 
.CLEAR PARITY REG BITS RESERVED FOR FUTURE. 
WORDS) CAN BE NOP' ED FOR UNMIXED MEMORY TYPES. 
COMPARE THE CHECK WORD UITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

CHECK FOR 22 BIT ADDRESSING 
BR IF 22 BIT ADOR NOT ENABLED 
CHECK IF ABOVE 128KW 
BR IF KIPAR2 LESS THAN 128KW 
:PUSH RO ON STACK 
SET BIT14 TO ENABLE BITS 18 21 
INTO BITS 8-5 OF PARITY CSR 
SETUP EXPECTED FOR PARITY CSR 
BITS 18-21 STORED IN 
BITS 5-8. 

.A18-21 IN BITS 5-8 
.ftOiSAVE EXPECTED PARITY CSR 
GET CONTENTS OF PARITY CSR 
CLEAR MASKED BITS 

COMPARE THE CHECK UORD UITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

:POP STACK INTO RO 
CLEAR REG INCLUDING ACTION ENABLE. 
;PUSH R3 ON STACK 

UPDATE POINTER TO NEXT PARITY REG ♦ MAP. 
CHECK FOR END OF TABLE. 
BR IF END OF TABLE REACHED. 
CHECK IF NEXT REG EXISTS. 
BR IF THIS PARITY REG DOESN'T EXIST. 
SAVE AND CHECK FOR ERROR FLAG. 
BR IF NO ERROR FLAG. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 
BR AFTER ERROR. 
.GET THE DATA FOR CHECKING, 
CHECK IT SHOULD CAUSE PARITY ERROR. BUT 
CONTROLLING REG. SO NO TRAP SHOULD OCCUR. 
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SEQ 0057 



2284 011074 

2285 

2286 

2287 011076 

2288 011100 

2289 011104 
2290 

2291 OllllO 

2292 011114 
011116 
011120 
011124 
011130 
011132 

2293 011132 

2294 011140 

2295 011142 

2296 011144 

2297 011146 
011150 
011154 
011160 
011162 

2298 011162 

2299 011164 

2300 011166 

2301 011172 

2302 011176 

2303 011200 

2304 011204 

2305 011206 
306 011210 

2307 011212 

2308 011216 

2309 011222 



111212 



012603 
017301 
046701 

042700 

020001 
001405 
004767 
004767 
000015 

012773 
010401 
012600 
120001 
001405 
004767 
004767 
000017 

110012 
105712 
012700 
105167 
100002 
000167 
005202 
005305 
001402 
000167 
004767 
004767 



000000 
170376 

000001 



005626 
006714 



000001 000000 



005602 
006664 



000253 
170562 

177162 



177104 
002146 
004512 



;NOTE: 

;NOTE: 

30042$ : 
30043$ ; 

30044$ : 



30045$ ; 
UUPB4: 



27$: 
UUPB5: 



UUPB6: 



MOVB (R2). (R2) 
THE ABOVE INSTRUCTION 
UHICH DO ONLY DATOB "^0 
MOV (SP)+.R3 
MOV a(R3). Rl 
BIC RESRV6. Rl 
THE ABOVE INSTRUCTION ( 



BIC 
CMP 
BEQ 
JSR 
JSR 
.WORD 

MOV 

MOV 

MOV 

CMPB 

BEQ 

JSR 

JSR 

.UORD 

MOVB 

TSTB 

MOV 

COMB 

BPL 

JMP 

INC 

DEC 

BEQ 

JMP 

JSR 

JSR 



#AE. 



RO 
Rl 



RO. 

30643$ 

PC. SPRNTP 
PC, $ERROR 
15 

*1. a(R3) 
R4. Rl 
{St>h.RO 
RO. Rl 
30045$ 

PC. SPRNTO 
PC. $ERROR 

17 



RO. 

(R^) 

#253. 

oefl6 

27$ 
UUPB2 
R2 
R5 

UUPB6 
UUP61 
PC. 
PC, 



(R2) 
RO 



MMUP 
MAMF 



i restore RIGHT PARITY 

can be nop 'ed for processors 
destination of movb instructions. 
:pop stack into r3 

read the parity register to check it again, 
clear parity reg bits reserved for future, 
uords) can be nop' ed for unmixed memory types, 
clear the actjon enable bit in test data, 
compare the check word uith the data read, 
branch over error call if good data, 
set up values por error printing. 
*** error *** (go type a message) 
error type code. 

clear all but action enable, 
get data read from memory for testing. 
:pop stack into ro 
Check the data. 

branch over error call if gooc data, 
set up values for error printing. 
*** error *** (go type a message) 
error type code. 

restore data. 

do a dati to be sure right parity, 
set odd parity data, 
check if done both odd and even parity, 
br if done both even and odd. 
loop back and do odd( parity bit clr). 
move pointer to next memory byte, 
check for end of block 
br if end of block found, 
loop back to test next byte, 
find next block and loop to uupbyt 

GO RESET PARITY REGISTERS. 
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RANDOM DATA TESTING THRU PROGRAM CODE RELOCATION. 



SEQ OOL? 



2311 



011226 
011226 

2312 011232 

2313 011234 

2314 011240 

2315 011244 

2316 011246 

2317 011250 

2318 011254 

2319 011256 

2320 011262 

2321 011264 

2322 011270 

2323 011272 

2324 011274 

2325 011276 

2326 011302 

2327 011304 
011306 
011310 
011312 
011316 
011322 
011324 

2328 011324 

2329 011330 

2330 011332 

2331 011336 
011336 
011340 

2332 
2333 
2358 



004567 
010703 
042703 
004467 
010246 
010346 
010567 
012322 
032703 
001002 
162703 
077507 
012603 
012602 
016705 
012300 
012201 
020001 
001405 
004767 
004767 
000020 

032703 
001002 
162703 

077517 
004767 



006300 

007777 
001712 



170516 
007777 
010000 

170470 



005464 
006522 



007777 
010000 

002024 



;*TEST 14 RANDOM DATA TESTING THRU PROGRAM CODE RELOCATION. 

t§T14: 



RANTST: 



1$; 



2$: 



3$: 



4$: 



30046$ : 



30047$; 



5$; 



JSR 
MOV 
BIG 
JSR 
MOV 
MOV 
MOV 
MOV 
BIT 
BNE 
SUB 
SOB 
MOV 
MOV 
MOV 
MOV 
MOV 
CMP 
BEQ 
JSR 
JSR 
.WORD 

BIT 
BNE 
SUB 

SOB 
JSR 



R5. 
PC. 

#7)77. 

R4. 

R2. 

R3. 

R5. 

(RS)*. 
#7777. 
3$ 

#10000. 

(Sli) + . 
(SP)>, 
TEM^l. 
(R3)*, 
(R2)*. 
RO. 

30647$ 
PC. 
PC. 
20 

#7777. 
5$ 

#10000, 



R5. 
PC. 



$SCOPE 

R3 

R3 

INITMM 

(3P) 
-(SP) 
TEMPI 
(R2)* 
R3 

R3 
2$ 
R3 
R2 
R5 
RO 
Rl 
Rl 

SPRNT2 
$ERROR 



R3 
R3 
4$ 

MMUP 



GO TO SCOPE ROUTINE. 

GET CURRENT PROGRAM COUNTER . 

POINT TO BEGINNING OF CURRENT 2K BLOCK. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

SAVE MEMORY POINTER. 

SAVE "DATA" POINTER. 

SAVE ADDRESS COUNTER 

MOV CODE INTO TEST MEMORY. 

CHECK FOR END OF "DATA TABLE' 

BRANCH IF MORE 

RESET POINTER TO START OF "RANDOM DATA' 
IF NOT END OF BLOCK.BRANCH TO 2$ 
RESET "DATA" POINTED. 
RESET MEMORY POINTER. 
RESET ADDRESS COUNTER 
GET S/B DATA. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

CHECK FOR END OF "DATA TABLE" 
BR IF MORE. 

RESET POINTER TO TOP OF "DATA TABLE". 

jBRANCH if more in CURRENT BLOCK 
iFIND NEXT BLOCK AND LOOP TO 1$. 



.SBTTL SECTION 3: 



INSTRUCTION EXECUTION TESTS. 

TEST 15 EXECUTE DATI. DATO THRU MEMORY. 

EXECUTES THE INSTRUCTION 'MOV R4.(R2)' THROUGHOUT MEMORY. 
AN 'RTS R5' (CODE 205) IS PLACED AFTER THE 'MOV INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



MEMORY 
LOCATION 

1ST PASS / 40000 
THRU TEST / 40002 

2ND PASS / 40002 
THRU TEST / 40004 

ETC.. ETC.. ETC. 



INSTRUCTION 
PLACED THERE 

010412 
000205 

010412 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 

000205 
000205 

000205 
000205 



RO = DATA WRITTEN ON TOP OF lUT BY THE lUT (SHOULD BE), 

Rl = DATA READ FROM MEMORY (WAS). 

R2 = ADDRESS OF lUT/DATA. 

R3 - INSTRUCTION UNDER TEST (lUT). 



1j 
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T15 EXECUTE DATI, DATO THRU MEMORY. 
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SEQ 0059 



2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 



1344 
1344 
1350 
1354 
1360 
1362 
1366 
1370 
1372 
1374 



2367 011376 

2368 011400 
011402 
011404 
011410 
011414 
011416 

2369 011416 

2370 011420 
011422 



004567 
012703 
012704 
010400 
004467 
005305 
C 10322 
0i0412 
004542 
012201 
020001 
001405 
004767 
004767 
000021 

010322 
077514 
004767 



006162 
010412 
000205 

001570 



005366 
006430 



001742 



;* R4 
;* R5 

ii**** 

t§T15 

DIDO: 



= RTS R5 (CODE 205). 

= BLOCK BOUNDARY BIT MASK. 



1$: 
2$: 

30048$ : 
30049$: 



JSR 
MOV 
MOV 
MOV 
JSR 
DEC 
MOV 
MOV 
JSR 
MOV 
CMP 
BEQ 
JSR 
JSR 
.UORD 

MOV 
SOB 
JSR 



#0i0412, 

#205. 

R4. 

R4. 

R5 

R3. 

R4. 

(R^)*, 
RO. 

30049$ 
PC. 
PC. 
21 

R3. 
R5. 
PC, 



$SCOPE 
R3 
R4 
RO 

INITMM 

(R2)* 

(R2) 

-(R2) 

Rl 

Rl 

SPRNT3 
$ERROR 



(R2)* 
2$ 

MMUP 



GO TO SCOPE ROUTINE. 



6E 
GE 
SE 
IN 



INSTRUCTION (lUT). 



'MOV R4.(R2)' 
'RTS R5' 

UP S/B DATA AFTER EXECUTION. 
TIALIZE THE MEMORY ADDRESS POINTERS. 
DO ALL ADDRESSES -1 
PUT lUT INTO FIRST LOC OF BLOCK. 
PUT 'RTS R5' FOLLOWING lUT. 
GO EXECUTE THE lUT. 

GET THE DATA FROM THE MEM ADR UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

PUT THE lUT INTO THE NEXT LOCATION. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 



_ J 
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EXECUTE DATI, DATOB (LOU BYTE) THRU MEMORY. ^ 



SEQ 006C 



011426 
011426 

2397 011432 

2398 011436 

2399 011442 

2400 011446 

2401 011452 

2402 011454 

2403 011456 

2404 011460 

2405 011462 

2406 011464 
011466 
011470 
011474 
011500 
011502 

2407 011502 

2408 011504 
011506 



004567 
012703 
012704 
012700 
004467 
005305 
010322 
010412 
004542 
012201 
020001 
001405 
004767 
004767 
000021 

010322 
077514 
004767 



006100 
110412 
000205 
110605 
001504 



005302 
006344 



001656 



TEST 16 EXECUTE DATI. DATOB (LOU BYTE) THRU MEMORY. 

EXECUTES THE INSTRUCTION 'MOVB R4,(R2)' THROUGHOUT MEMORY. 
AN 'RTS R5' (CODE 205) IS PLACED AFTER THE 'MOVB' INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



MEMORY 
LOCATION 

1ST PASS / 40000 
THRU TEST / 40002 

2ND PASS / 40002 
THRU TEST / 40004 



INSTRUCTION 
PLACED THERE 

110412 
000205 

110412 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 

110605 
000205 

110605 
000205 



RO 
Rl 
R2 
R3 
R4 
R5 

ii**** 

Hue: 



DIDBL: 

1$: 
2$: 

30050$: 
30051$: 



ETC., ETC.. ETC. 

= DATA WRITTEN ON TOP OF lUT BY THE lUT (SHOULD BE). 

= DATA READ FROM MEMORY (UAS). 

= ADDRESS OF lUT/DATA. 

= INSTRUCTION UNDER TEST (lUT). 

= RTS R5 (CODE 205). 

= BLOCK BOUNDARY BIT MASK. 

JSR R5, $SCOPE ;60 TO SCOPE ROUTINE. 

MOV I2J5''''rI :i{ '^IM^'^^^^' I'^STRUCTION (lUT). 

MOV #110605. RO I SET UP S/B DATA AFTER EXECUTION. 

JSR R4, INITMM INITIALIZE THE MEMORY ADDRESS POINTERS. 

DEC R5 :D0 ALL ADDRESSES -1 

MOV R3. (R2)+ :PUT lUT INTO FIRST LOC OF BLOCK. 

ley S^ (^25 ;PUT 'RTS R5' FOLLOWING lUT. 

JSR R5. -(R2) ;60 EXECUTE THE lUT. 

MOV (R2)+. Rl ;6ET THE DATA FROM THE MEM ADR UNDER TEST. 

£PS R^Ar. ;COMPARE THE CHECK UORD WITH THE DATA READ. 

BEQ 30051$ ;BRANCH OVER ERROR CALL IF GOOD DATA. 

JSR PC. SPRNT3 ;SET UP VALUES FOR ERROR PRINTING. 

JSR PC. $ERROR ;*** ERROR *** (GO TYPE A MESSAGE) 

.WORD 21 ; ERROR TYPE CODE. 

MOV R3. (R2)* ;PUT THE lUT INTO THE NEXT LOCATION. 
SOB R5. 2$ ;BRANCH IF MORE IN CURRENT BLOCK. 
JSR PC. MMUP :FIND NEXT BLOCK AND LOOP TO 1$. 



^ J 
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EXECUTE DATI. CATOB (HIGH BYTE) THRU MEMORY: 



SEQ 0061 



2434 



2435 
2436 
2437 
2^38 
2439 
2440 
2441 

2442 
2443 
2444 
2445 



2446 
2447 



011512 
011512 
011516 
011522 
011526 
011532 
011536 
011540 
011542 
011544 
011550 
011552 
011554 
011556 
011560 
011564 
011570 
011572 
011572 
011574 
011576 



004567 
012703 
012704 
012700 
004467 
005305 
010322 
010412 
004562 
005302 
012201 
020001 
001405 
004767 
004767 
000021 

010322 
077516 
004767 



006014 
110342 
000205 
161342 
001420 



177776 



005212 
006254 



001566 



TEST 17 EXECUTE DATI. DATOB (HIGH BYTE) THRU MEMORY. 

EXECUTES THE INSTRUCTION 'MOVB R3,-(R2)' THROUGHOUT MEMORY. 
AN 'RTS R5' (CODE 205) IS PLACED AFTER THE 'MOVB' INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



MEMORY 
LOCATION 

1ST PASS / 40000 
THRU TEST / 40002 

2ND PASS / 40002 
THRU TEST / 40004 



INSTRUCTION 
PLACED THERE 

110342 
000205 

110342 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 

161342 
000205 

161342 
000205 



RO 
Rl 
R2 
R3 
R4 
R5 
:•***** 
t§T17: 



DIDBH: 



ETC.. ETC.. ETC. 

= DATA WRITTEN ON TOP OF lUT BY THE lUT (SHOULD BE). 

= DATA READ FROM MEMORY (WAS). 

= ADDRESS OF lUT/DATA. 

= INSTRUCTION UNDER TEST (lUT). 

= RTS R5 (CODE 205). 

= BLOCK BOUNDARY BIT MASK. 



2$: 



30052$: 
30053$: 



JSR 
MOV 
MOV 
MOV 
JSR 
DEC 
MOV 
MOV 
JSR 
DEC 
MOV 
CMP 
6EQ 
JSR 
JSR 
.UORD 

MOV 
SOB 
JSR 



R5, 

#110542. 
*205. 
#161342. 
R4, 
R5 
R3. 
R4. 
R5. 
R2 

(R2)*, 
RO, 

30053$ 
PC. 
PC. 

21 



$SC0PE 
R3 
R4 
RO 

INITMM 

(R2)* 

(R2) 

-2(R2) 

Rl 
Rl 

SPRNT3 
$ERROR 



R3. (R2)^ 
R5. 2$ 
PC. MMUP 



GO TO SCOPE ROUTINE. 

GET 'MOVB R3.-(R2)' INSTRUCTION (lUT). 

GET 'RTS R5' 

SET UP S/B DATA AFTER EXECUTION. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

DO ALL ADDRESSES -1 

PUT lUT INTO FIRST LOC OF BLOCK. 

PUT 'RTS R5' FOLLOWING lUT. 

GO EXECUTE THE lUT. 

ADJUST R2 TO POINT TO MAUT. 

GET THE DATA FROM THE MEM ADR UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*»* ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

PUT THE lUT INTO THE NEXT LOCATION. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND lOOP TO 1$. 
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EXECUTE DATI. OATIO. DATO THRU MEMORY. ^ 



SEQ 006 



2475 



01 


1602 






01 


602 


004567 


005724 


2476 01 


606 


012703 


005412 


2477 Olj 


612 


012704 


000205 


2478 OL 


.616 


012700 


172366 


2479 01 


.622 


004467 


001330 


2480 01 


.626 


005305 




2481 01, 


630 


010322 




2482 01 


.632 


010412 




2483 01: 


.634 


004542 




2484 01 


.636 


012201 




2485 01: 


.640 


020001 




01: 


642 


001405 




01: 


644 


004767 


005126 


01: 


,650 


004767 


006170 


01 


.654 


000021 




01 


.656 






2486 01: 


.656 


010322 




2487 01 


.660 


077514 




011662 


004767 


001502 



;*********.*i*.*.*.*.*iti*n*.imiitim*i*iiiiii*iimttit.nttmtm*t****tt 

TEST 20 EXECUTE DATI, DATIO. DATO THRU MEMORY. 

EXECyiESJHE.INSIRUCTION ' NEG.(ft2)l .THROUGHOUT MEMORY. 



AN 'RTS R5' (CODE 205) IS PLACED AFTER THE 'NEG , 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECU 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELA 



NSTRUCTION TO RETURN 
ION CHECKOUT . 
ION TO MEMORY: 



MEMORY 
LOCATION 

1ST PASS / 40000 
THRU TEST / 40002 

2ND PASS / 40002 
THRU TEST / 40004 

ETC.. ETC.. ETC. 



INSTRUCTION 
PLACED THERE 

005412 
000205 

005412 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 

172366 
000205 

172366 
000205 



RO = DATA WRITTEN ON TOP OF lUT BY THE lUT (SHOULD BE). 
Rl = DATA READ FPOM MEMORY (UAS). 
R2 = ADDRESS OF lUT/DATA. 



R3 
R4 
R5 
••***** 

t5T20: 



DIPDO- 

1*: 
2$: 

30054$; 
30055$ ; 



= INSTRUCTION UNDER TEST (lUT). 

= RTS R5 (CODE 205). 

= BLOCK BOUNDARY BIT MASK. 



JSR 
MOV 
MOV 
MOV 
JSR 
DEC 
MOV 
MOV 
JSR 
MOV 
CMP 
6EQ 
JSR 
JSR 
.WORD 

MOV 
SOB 

JSR 



#065412 

#205. 

#172^66 

R4. 

R5 

R3. 

R4. 

IR^)*. 
RO, 

30055$ 
PC. 
PC. 
21 



$SCOPE 
.R3 

R4 
,R0 

INITMM 

[ilY 

-(R2) 

Rl 

Rl 

SPRNT3 
$ERROR 



R3. (R2)^ 
fi5. 2$ 
PC. MMUP 



GO TO SCOPE ROUTINE. 

GET 'NEG (R2)' INSTRUCTION (lUT). 

GET 'RTS R5' 

SET UP S/B DATA AFTER EXECUTION. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

DO ALL ADDRESSES -1 

PUT lUT INTO FIRST LOC OF BLOCK. 

PUT 'RTS R5' FOLLOWING lUT. 

GO EXECUTE THE lUT. 

GET THE DATA FROM THE MEM ADR UNDER TEST. 
COMPARE THE CHECK WORD UITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

PUT THE lUT INTO THE NEXT LOCATION. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 
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EXECUTE DATI. DATI, OATIO. DAT08 (LOW BYTE) THRU MEMOPY. ^ 



SEQ 0063 



2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 



2524 
2525 



011666 
011666 
011672 
011676 
0x1702 
011706 
01^12 
011714 
011716 
011720 
011722 
011724 
011726 
011730 
011734 
011740 
011742 
011742 
0J1''44 
0 '.746 



004567 
012703 
012704 
012700 
004467 
005305 
010322 
010412 
004542 
012201 
020001 
001405 
004767 
004767 
000021 

010322 
077514 
004767 



005640 
142242 
000205 
142000 
001244 



005042 
006104 



001416 



TEST 21 ^ EXECUTE DATI. DATI, DATIO, DATOB (LOU BYTE) THRU MEMORY 
EXECUTES THE INSTRUCTION 6ICB (R2)».-{R2)' THROUGHOUT MEMORY. 
AN 'RTS R5' (CODE 205) IS PLACED AFIeR THE BICB INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHFCKOUT 
THIS IS AN EXAMPLE OF UHAT THIS TES^ DO^S IN RELATION TO MEMORY: 



MEMORY 
LOCATION 

1ST PASS / 40000 
THRU TEST / 40002 

2ND PASS / 40002 
THRU TEST / 40004 



INSTRUCTION 
PLACED THERE 

142242 
000205 

142242 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 

142000 
000205 

142000 
000205 



ETC.. ETC.. ETC. 



RO 
Rl 
R2 
R3 
R4 
R5 



lUT BY THE lUT (SHOULD BE). 

:uAS). 



DATA WRITTEN ON TOP OF 
DATA READ FROM MEMORY ( 
ADDRESS OF lUT/OATA. 
INSTRUCTION UNDER TEST (lUT). 
RTS R5 (CODE 205). 
BLOCK BOUNDARY BIT MASK. 

T§T21: 

R5. $SCOPE 
#142242. R3 
*205. R4 
»142000,R0 



DPDBL: 



1$: 
2J; 



30056 J : 



30057$; 



JSR 
MOV 
MOV 
MOV 
JSR 
DEC 
MOV 
MOV 
JSR 
MOV 
CMP 
BEQ 
JSR 
JSR 
.WORD 

MOV 
SOB 
JSR 



R4. 
R5 
R3. 
R4. 

RO, 

30657$ 
PC. 
PC. 
21 

R3. 
R5. 
PC. 



INITMM 

(R2)* 

(R2) 

-(R2) 

Rl 

Rl 

SPRNT3 
$ERROR 



(R2)* 
2$ 

MMUP 



INSTRUCTION (lUT), 



GO TO SCOPE ROUTINE. 
GET BICB (R2)».-(R2)' 
GET 'RTS R5' 

SET UP S/B DATA AFTER EXECUTION. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
DO ALL ADDRESSES -1 
PUT lUT INTO FIRST LOC OF BLOCK. 
PUT 'RTS R5' FOLLOWING JUT. 
GO EXECUTE THE lUT. 

GET THE DATA FROM THE MEM ADR UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ, 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

PUT THE lUT INTO THE NEXT LOCATION. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT SLOCK AND LOOP TO 1$. 



'•'5 
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T22 EXECUTE OATI, DATI. DATIO. 0AT08 (HIGH BYTE5 THRU MEMORY. 
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2551 



011752 
011752 

2552 011756 

2553 011762 

2554 011766 

2555 011772 

2556 011776 

2557 012C00 

2558 012002 
2j59 012004 

2560 012006 

2561 012010 

2562 012012 
012014 
012016 
012022 
012026 
012030 

2563 012030 

2564 012032 
012034 



004567 
012703 
012704 
012700 
004467 
005305 
010322 
010412 
004542 
005302 
012201 
020001 
001405 
004767 
004767 
OOOf n 

010322 
077515 
004767 



005554 
152212 
000205 
157212 
001160 



004754 
006016 



001330 



♦TEST 22 EXECUTE JATI. DATI., DATIO, OATOB (HIGH BYTE) THRU MEMORY 



EXECUTES THE INSTRUCTION 'BISB (R2)»,(R2)' THROUGHOUT MEMORY. 
AN 'RTS R5' (CODE 205) IS PLACED AFTER THE 'BISB' INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT 
THIS IS AN EXAMPLE OF WHAf THIS TEST DOES IN RELATION TO MEMORY- 



1ST 
THRU 



PASS 
TEST 



2ND PASS / 
THRU TEST / 



MEMORY 
LOCATION 

40000 
40002 

40002 
40004 



INSTRUCTION 
PLACED THERE 

152212 
000205 

152212 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 

157212 
000205 

157212 
000205 



ETC., ETC.. ETC. 



^0 = 
Rl = 
R2 = 
R3 = 
R4 = 
R5 = 

tST22: 



DATA WRITTEN ON TOP OF lUT BY THE lUT (SHOULD BE). 

DATA READ FROM MEMORY (WAS). 

ADDRESS OF lUT/DATA. 

INSTRUCTION UNDER TEST (lUT). 

RTS R5 (CODE 205). 

BLOCK BOUNDARY BIT MASK. 



JSR 
OPOBH: MOV 
MOV 
MOV 
JSR 

1$: DEC 
MOV 

2$ : MOV 
JSR 
DEC 
MOV 
CMP 
BEQ 

30058$: JSR 
JSR 
.WORD 

30059$: 

MOV 
SOB 
JSR 



R5. $SCOPE 
#152212. R3 
*205. R4 
^157^12.R0 



R4, 
R5 
R3. 
R4. 
R5. 
R2 

(R2)+. 
RO. 

30659$ 
PC. 
PC. 
21 

R3. 
R5. 
PC. 



INITMM 

-(R2) 

Rl 
Rl 

SPRNT3 
TERROR 



(R2)» 
2$ 

MMUP 



GO TO SCOPE ROUTINE. 

GET 'BISB (R2)*.(R2) INSTRUCTION (lUT). 
GET 'RTS R5' 

SET UP S/B DATA AFTER EXECUTION. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

DO ALL ADDRESSES -1 

PUT lUT INTO FIRST LOC OF BLOCK. 

PUT 'RTS R5' FOLLOWING lUT. 

60 EXECUTE THE lUT. 

RESET R2 TO POINT TO lUT. 

GET THE DATA FROM THE MEM ADR UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ, 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

;PUT THE lUT INTO THE NEXT LOCATION. 
{BRANCH IF MORE IN CURRENT BLOCK. 
;FINO NEXT BLOCK AND lOOP TO 1$. 
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SEQ 0065 



2566 
2590 



012040 
012040 

2591 012044 

2592 012050 

2593 012054 

2594 012060 

2595 012062 

2596 012066 

2597 012070 

2598 012072 

2599 012076 

2600 01210C 
012102 
012104 
012110 
012114 
012116 

2601 012116 

2602 012120 

2603 012122 

2604 012124 
012126 
012130 
012134 
012140 
012142 

2605 012142 

2606 012144 

2607 012146 

2608 012150 

2609 012154 

2610 012156 



004567 
004467 
010567 
010267 
005003 
012700 
010022 
077502 
016705 
014201 
020001 
001405 
004767 
004767 
000010 

000300 
010012 
011201 
020001 
O-DHOS 
0D4767 
004767 
000010 

C00300 
005703 
001403 
020327 
001011 
077531 



005466 
001106 
167716 
167710 

000377 



167674 



004G72 
005730 



004646 
005704 



000003 



SBTTL SECTION 4:M0S TESTS 

TEST 23 MARCHING I'S AND OS. 

THIS TEST IS DESIGNED TO STRESS MOS MEMORIES. 

STARTING AT THE BOTTOM ADDR<^SS AND '\OORESSING UPWARDS A 8K BANK IS 
WRITTEN WITH 000377. THEN STARTING Ai THE TOP ADDRESS OF THE BANK THE 
000377 IS READ. THE BYTES ARE SWAPPED TO 177400 AND THE LOCATION 
REREAD TO CONFIRM THE WRITE. THIS IS REPEATED FOR EVERY LOCATION 
ADDRESSED DOWNWARD UNTIL THC BOTTOM IS REACHED. STARTING AT THE 
BOTTOM EACH LOCATION IS READ FOR 177400. THE BYTES ARE SWAPPED TO 
000377 AND REREAD TO CONFIRM THE WRITE UNTIL THE TOP ADDRESS OF THE 
BANK IS REACHED. AGAIN STARTING AT THE BOTTOM EACH LOCATION IS READ 
FOR 000377.THE BYTES SWAPPED TO 177400 AND THE LOCATION REREAD TO 
CONFIRM THE WRITE. LASTLY STARTING FROM THE TOP AND ADDRESSING DOWN- 
WARD EACH LOCATION IS READ.THE BYTES SWAPPED TO 000377 AND THE 
LOCATION IS REREAD TO CONFIRM THE WRITE. THIS IS REPEATED FOR EVERY 
8K BANK UNDER TEST. 

RO=DATA WRITTEN INTO MEMORYC SHOULD BE) 
R1=DATA READ FROM MEMORY(WAS) 
R2=VIRTUAL ADDRESS 
R3=TIMES THROUGH COUNTFR 
R4=N0T USED 

R5=BL0CK BOUNDARY BIT MASK. 

t§T23: 



100$; 

1$: 

2$: 



3$: 



30060$ : 



30061$ 
4$: 



30062$; 



30063$ : 



5$; 



JSR 
JSR 
MOV 
MOV 
CLR 
MOV 
MOV 
SOB 
MOV 
MOV 
CMP 
BEQ 
JSR 
JSR 
.WORD 

SWAB 

MOV 

MOV 

CMP 

BEQ 

JSR 

JSR 

.WORD 

SWAB 

TST 

BEQ 

CMP 

BNE 

SOB 



R5. $SCOPE 
R4 , INITMM 
R5. TEMPI 
R2,TEMP 
R3 

#00037 7. RO 
R0,(R2)> 
R5.2$ 
TEMPI, R5 
-(R2),R1 
RO, Rl 
30061$ 



PC. 
PC. 
10 

RO 

R0.(R2) 
(R^).Rl 
RO. 

30063$ 

PC. 

PC. 

10 

RO 
R3 
5$ 

R3.#3 
6$ 

R5.3$ 



SPRNT2 
$ERROR 



GO TO SCOPE ROUTINE. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
STORE TEST WORD COUNTER 
SAVE BANK STARTING ADDRESS 
CLEAR PASS COUNTER 
SETUP TO WRITE PATTERN 
WRITE PATTERN 
ENC OF 8K? 

RESTORE TEST WORD COUNTER FOR NEXT PASS 
GET DATA_WRITEN 

WORD WITH THE DATA READ, 
CALL IF GOOD DATA. 
ERROR PRINTING. 
TYPE A MESSAGE) 



COMPARE THE CHECK 
BRANCH OVER ERROR 
SET UP VALUES FOR 
*** ERROR *** (GO 
ERROR TYPE CODE. 



.SWAP BYTES OF DATA 
; WRITE SWAPFi.O WORD 

.GE' DATA WRITEN 
Rl .-COMPARE THE CHECK WORD WITH THE DATA READ. 

.BRANCH OVER ERROR CALL IF 6000 DATA. 
SPRNT2 jSET UP VALUES FOR ERROR PRINTING. 
$ERR0R ;*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

PUT DATA BACK TO ORINGINAL 
IF ON PASS 0 OR PASS 3 
WE ARE ADDRESSING DOWN 
IF ON PASS 1 OR 2 GO TO 
UPWARD 

DONE A PASS? ,IF NOT THEN 3$ 



tj w 
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SEQ GO- 



?611 012160 

2612 012162 

2613 012166 

2614 012170 

2615 012174 

2616 012176 

2617 012200 

2618 012204 

2619 012206 

2620 012210 

2621 012212 
012214 
012216 
012222 
012226 
012230 

2622 012230 

2623 012232 
:624 012236 
^625 012240 

2626 012242 

2627 012246 

2628 012250 

2629 012254 

2630 012256 
2631 

2632 012262 

2633 

2634 

2635 012266 
2636 
2637 
2650 



012272 
012272 

2651 012276 

2652 012302 

2653 012306 

2654 012310 

2655 012312 
012314 

2656 012320 

2657 012322 
2655 012326 
2659 012330 



004567 
004467 
012700 
010022 
005100 
077503 
004767 
005003 
012704 
005303 
001376 



005234 
000654 
125252 



001050 
000046 



IF YES INCREMENT PASS COUNTER 

ARE UE DONE ALL PASSfcS FOR THIS 8K? 

IF YES BRANCH 

RESTORE TEST COUNTER FOR NEXT PASS. 

ELSE SET UP NEU READ WORD 

GO TO START OF ADDRESS UP 

UPDATE TO NEXT ADDRESS 

DONE A PASS? 

IF YES BRANCH 

GET DATA URITTEN 

COMPARE THE CHECK WORD UITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DA^A. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 



RESTORE TEST WORD COUNTER FOR NEXT PASS. 
INCREMENT PASS COUNTER 
SET UP NEU READ WORD 
ADDRESSING UP? 
IF NO GO TO DOUN SEQUENCE 
IF YES RESET ADDRESS TO START 
GO TO UP SEQUENCE 

TESTING ENDS UITH R2 = BOTTOM OF BANK 
ADD 8K FOR TEST START OF NEXT BANK 
CLEAR POSSIBLE FIRST STARTING 
ADDRESS OF 1000 UHEN VECTOR AREA IS 
PROTECTED. 

UPDATE TO NEU BANK IF EXISTS 
RETURN TO 100$ 



0052C3 






INC 


R3 


022 /( 3 


AA AA A4 

000004 




CMP 


M.M n 7 

#4,R3 


0014 .3 






BEQ 


A * 

9$ 


0167 ;5 


167576 




UA kl 

MOV 


TcMPl,R5 


0003 X) 






r^i inn 

SUAB 


nA 

RO 


0004 )4 






BR 


•7 * 


062 02 


AAAAAO 

000002 


6> : 


ADD 


ire 


AAC 7 AC 

00r305 






DEC 


DC 


AA 4 4 4 

00i411 






OCA 

DCU 




A ' 4 OA 4 

0x1201 




7$ : 


UAl J 

MOV 


CR2),H1 


^. O AA A 4 

020001 






LMH 


OA D 1 

RO, Rl 


AA « A AC 

00140!) 






DtU 


30063? 


004767 


004560 


30064. : 


ICO 

JbK 


or CODUTO 

rL, brKNIi: 


004767 


AAC£ 1 £ 

005616 




ICD 

JbK 


or tcDono 


AAAA 1 A 

000010 






ijAon 
.WUKU 


1 A 
10 






7AA£Ct . 






000732 






QD 
on 




016705 


1 £. 1C7il 

167534 


B$ : 


nuv 


TCMOI DC 

Itnrl.Kb 


005203 






INC 


R3 


000300 






SUAB 


RO 


020327 


000002 




CMP 


R3.*2 


A/\ 1717 






Que 

oNt 


3$ 


016702 


167514 




MOV 


TEMP,R2 


000755 






BR 


7$ 


0t)2702 


040000 


9$: 


ADD 


#40000, R2 


042702 


001000 




BIG 


nooo.R2 


004767 


001076 




JSR 


PC.MMUP 



TEST 24 WRITE CHECKERBOARD S 

THESE TESTS WRITE A CHECKERBOARD ...,„^..„«. ...ow 
FOR 2 SECONDS THEN CHECK PATTERN TO VERIFY DATA DI6 NOT 
DETERIORATE BETWEEN REFRESH CYCLES 



ARI^Nvi UITH '125252' DATA. 
HROUGHOUT MEMORY, STALL 



RO=DATA URITTEN INTO MEMORY( SHOULD BE) 
R1=DATA READ FROM MEMORYCUAS) 
R2=VIRTUAL ADDRESS 
R3=SMALL LOOP COUNTER FOR STALL 
R4=NUMBER OF TIMES SMALL LOOP DONE 
R5=BL0CK BOUNDARY BIT MASK. 

t§T24: 



1$: 



2$: 



JSR 
JSR 
MOV 
MOV 
COM 
SOB 
JSR 
C_R 
MOV 
DEC 
BNE 



R5, 
R4 

*1^5252 

RO 

RO 

R5. 

PC. 

R3 

*46, 

R3 

2$ 



$ SCOPE 
INITMM 
,R0 

.(R2)* 
1$ 

MMUP 
R4 



GO TO SCOPE ROUTINE. 
INITIALIZE THE MEMORY ADDRESS POlNfERS. 
SETUP DATA PATTERN 
URITE A UORD 
COMPLEMENT DATA 

BRANCH IF MORE IN CURRENT BLOCK 
FIND NEXT BLOCK AND LOOP TO 1$. 
SE"' UP COUNTER FOR STALL 
DO LOOP 46 TIMES OR 2 SEC. TOTAL. 
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T24 URITE CHECKERBOARD STARTING UITH '125252' DATA. ^ 



SEQ 0067 



2660 012332 

2661 012334 

2662 012336 

2663 012342 

2664 012346 
012346 
012350 
012352 
012354 
012360 
012364 
012366 

2665 012366 

2666 012370 
012372 

2667 



012376 
012376 

2668 012402 

2669 012406 

2670 012412 

2671 012414 

2672 012416 
012420 

2673 012424 

2674 012426 

2675 012432 

2676 012434 

2677 012436 

2678 012440 

2679 012442 

2680 012446 

2681 012452 
012452 
012454 
012456 
012460 
012464 
012470 
012472 

2682 012472 

2683 012474 
012476 



005304 
001374 
004467 
012700 

012201 
020001 
001405 
004767 
004767 
000006 

005100 
077512 
004767 



004567 
004467 
012700 
010022 
005100 
077503 
004767 
005003 
012704 
005303 
001376 
005304 
001374 
004467 
012700 

012201 
020001 
001405 
004767 
004767 
000006 

005100 
077512 
004767 



000614 
125252 



004422 
005460 



000772 



005130 
000550 
052525 



000744 
000046 



000510 
052525 



004316 
005354 



000666 



3J: 



30066$ : 



30067$: 



DEC R4 

BNE 2$ 

JSR R4. INITMM 

MOV #lte2.R0 

MOV (R2)*. Rl 

CMP RO, Rl 

BEQ 30067$ 

JSR PC, SPRNT2 

JSR PC. $ERROR 

.UORD 6 



:INITIALIZE^THE^MEMORY ADDRESS POINTERS. 
;INIT DATA FOR CHECKING 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 



RO 

R5. 3$ ; BRANCH IF MORE IN CURRENT BLOCK 

PC. MMUP jFIND NEXT BLOCK AND LOOP TO 1$. 

WRITE CHECKERBOARD STARTING WITH 052525 DATA 



COM 
SOB 
JSR 

;*TEST 25 

t5T25: 



1$; 



3$: 



30068$; 



30069$ : 



JSR 
JSR 
MOV 
MOV 
COM 
SOB 
JSR 
CLR 
MOV 
DEC 
BNE 
DEC 
BNE 
JSR 
MOV 

MOV 
CMP 
BEQ 
JSR 
JSR 
.WORD 

COM 
SOB 
JSR 



R5. >SCOPE 
R4. INITMM 
*052525.R0 
RO. (R2)* 
RO 
R5. 
PC. 
R3 
#46. 



1$ 

MMUP 



R3 
2$ 
R4 
2$ 
R4 



R4 



*0§2525.R0 



INITMM 



(R2)*. Rl 
RO. Rl 
30069$ 
PC. 

I'- 



SPRNT2 
$ERROR 



RO 

R5. 

PC. 



3$ 

MMUP 



GO TO SCOPE ROUTINE. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

SETUP DATA PATTERN 

URITE A UORD 

BRANCH IF MORE IN CURRENT BLOCK 
FIND NEXT BLOCK AND LOOP TO 1$. 
SET COUNTER FOR LOOP 
DO LOOP 46 TIMES OR 2 SEC. TOTAL 



INITIALIZE THE MEMORY ADDRESS POINTERS. 
;INIT PATTERN FOR CHECKING 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK UORD UITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 



; BRANCH IF MORE IN CURRENT BLOC< 
:FIND NEXT BLOC< AND LOOP TO 1$. 



Jo 
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DONE: RELOCATE PROGRAM AND REPEAT ALL TESTS. ^ 



SEQ 0068 



2685 
2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 



012502 
012502 
012506 
012512 
012516 
012524 
012526 
012532 
012534 
012540 
012542 
012550 
'112552 
012556 
012560 
012566 

012570 
012574 

012600 
012604 
012610 
012612 
012616 
012616 
012622 



004567 
005067 
105067 
032777 
001037 
105767 
001403 
005767 
001026 
026767 
001003 
005767 
001417 
0?2767 
001404 

004767 
000167 

004757 
005767 
001402 
004767 

004567 

ooin 



005024 
166446 
166354 
000200 

166462 

166442 

165274 

166424 

000001 

002154 
174206 

002460 
165232 

002646 

007130 



.S8TTL DONE: 
DONE: 



TST32: 



166404 



165276 1$: 

165746 2$: 

3$; 
4$: 



5$; 
6$; 



JSR 
CLR 
CLRB 
BIT 
BNE 
TSTB 
6EQ 
"ST 
BNE 
CMP 
BNE 
TST 
BEQ 
BIT 
BEQ 

JSR 
JMP 

JSR 
TST 
BEQ 
JSR 

JSR 
.UORO 



RELOCATE PROGRAM AND REPEAT ALL TESTS. 



JSCOPE 



3SUR 



R5. 

$TIMES 
$TSTNM 
*SU07. 
$EOP 
$ENV 
1$ 

$PASS 
6$ 

42.46 
2$ 

$PASS 
6$ 

#BITO,PRGMAP 
4$ 



PC 

stArti 

PC, 
42 
6$ 
PC. 

$CftLF 



reltop 

RELO 

RESLDR 
$PRINT 



GO TO SCOPE ROUTINE. 

CHECK FOR INHIBIT RELOCATION SWITCH. 
SKIP RELOCATION IF SWITCH SET. 
CHECK FOR APTU 
BRANCH IF NOT APT 11 
CHECK FOR iST PASS 

OPV^^S yOT RELOCATE AFTER FIRST PASS 

CHECK FOR ACT 11 

BRANCH IF NOT ACT 11 

CHECK FOR FIRST PASS 

IF ACT.OO NOT RELOCATE ON FIRST PASS 

CHECK If PROGRAM IN FIRST 8K 

IF NOT IN FIRST 8K,REL0C TOP TO BOTTOM 

MUST BE XXOP OR STAnDALONE 

RELOCATE PROGRAM TO TOP OF MEMORY. 

LOOP BACK AND RUN ALL TESTS AGAIN. 

RELOCATE PROGRAM BACK TO FIRST 8K. 
TEST FOR XXDP 

IF NOT RUNNING UNDER MON. DONT 
RESTORE LOADERS. 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 
.-ADDRESS OF MESSAGE TO BE TYPED 
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DONE: RELOCATE PROGRAM AND REPEAT ALL TESTS. 



SEQ 0069 



2^11 



2n2 
2713 
2714 
2^5 



012624 
012624 
012626 
012632 
012636 
012644 
012646 
012650 
012652 
012654 
012656 
012660 
012664 
012666 



012672 
012674 

012700 
012704 
012710 
012712 

012712 
012716 
012720 
012722 
012724 
012726 
012730 
012732 
012740 
012742 
012746 
012750 
012754 
012754 
012760 
012763 
012766 
012771 
012774 
C12775 



.SBTTL END OF PASS ROUTINE 
♦INCREMENT THE PASS NUMBER ($PASS) 

♦TYPE "END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
.TF THERES A MONITOR GO TO IT 
*1F THERE ISN'T JUMP TO STARTl 



000240 

005067 166326 

005267 166344 

042767 100000 166336 

005327 

000001 

003041 

012737 

000001 

012646 

004567 007066 
012760 

016746 166310 



106746 
105066 

004767 
004567 
012775 



016700 
001416 
000005 
004710 
000240 
000240 
000240 
023737 
001405 
105737 
001002 
004767 

000167 
015 
116 
120 
123 
000 
3"'7 



000001 

010042 
007042 



165124 



002576 

174026 
012 
104 
101 
040 

377 



JEOP: 



$E0PCT: 



JENDCT: 



NOP 
CLR 
INC 
BIC 
DEC 
.WORD 
BGT 
MOV 
.WORD 
JEOPCT 
JSR 
.WORD 
MOV 



$TIMES 
$PASS 

#100000. $PASS 

(PC)* 

1 

$D0AGN 

(PC)*.a(PC)* 
1 



ZERO THE NUMBER OF 
INCREMENT THE PASS 
DON'T ALLOW A NEG. 
LOOP? 



ITERATIONS 

NUMBER 

NUMBER 



• - YES 
!! REST ORE 



COUNTER 



R5, 

$ENDMG 
$PASS^-(SP) 



$PRINT 



;G0 PRINT OUT THE FOLLOWING MESSAGE. 
jADDRESS OF MESSAGE TO BE TYPED 
..w. T. r.w>j -vj. J "SAVE $PASS FOR TYPEOUT 
THE NEXT TWO INSTRUCTIONS PRlSviDE AN INTERFACE TO THE $TYPDS ROUTINE 
!* WIHTOULUSING.A.rTRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



$GET42: 



MFPS 
CLRB 

JSR 
JSR 
.WORD 



-(SP) 
KSP) 

PC. 
R5. 

$ENULL 



$TYPDS 
$PRINT 



000042 000046 
001214 



MOV 
6EQ 
RESET 
$ENDAD: JSR 
NOP 
NOP 
NOP 
CMP 
BEQ 
TSTB 
BNE 
JSR 



105 
040 
123 
043 

000 



$D0AGN: 
$ENDMG: 



42. RO 

$d6agn 

PC.(ROt 



S«42.9«46 
$DOAGN 
9#$ENV 
$DOAGN 

PC. SAVLDR 



PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSW RETURN. 
60 TO THE SUBROUTINE 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF ^ESSAGE TO BE TYPED 



;:GET MONITOR ADDRESS 
BRANCH IF NO MONITOR 
CLEAR THE WORLD 
GO TO MONITOR 
ShVE ROOM 
FOR 
ACTU 

ARE WE UNDER ACT 11 OR XXDP 

IF ACTll THEN RESTART 

CHECK FOR APT 11 

IF APTll THEN RESTART 

IF XXDP FIRST SAVE MONITOR 



JMP 
.ASCIZ 



STARTl :; RETURN***** 

<15><12>/END PASS #/ 



$ENULL: .BYTE -1,-1.0 ;:NULL CHARACTER STRING 

.SBTTL SUBROUTINE AND TRAP ROUTINE SECTION. 

.SBTTL MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES. 

; ;**i****«««A*«i***«***«A***4i*«*********«***«****4*«A************ 

;* SET UP ALL THE MEM MGMT REGISTERS FOR NORMAL OPERATION. 



CVMSAB 0 2 HEGAWOfiD MEMORY Ex MACRO Y05.02 Monday 23-Oec 85 08:45 Page 19-1 
MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES. 



SEQ 00"0 



2716 
2717 
2718 
2719 
2720 

2721 013000 
013000 

2722 013006 

2723 013014 

2724 013022 

2725 013030 

2726 013034 

2727 013040 

2728 013044 

2729 013046 

2730 013052 

2731 013060 

2732 013064 

2733 013072 

2734 013076 

2735 013102 

2736 013106 

2737 013112 

2738 013116 

2739 013120 

2740 013124 

2741 013132 

2742 013136 

2743 013140 

2744 013146 

2745 013154 
2746 

2747 
2748 
2749 
2750 
2751 

2752 013156 
013156 
013160 

2753 013162 

2754 013170 

2755 013172 

2756 013176 

2757 013200 

2758 013204 

2759 013210 

2760 013212 

2761 013214 

2762 013220 

2763 013226 

2764 013234 
013236 

2765 013240 

2766 013244 



010046 
010146 
012767 
005002 
005767 
001410 
012700 
016701 
005021 
077002 
005037 
012767 
066767 
012601 
012600 
004767 
004767 



012737 


077406 


172300 




MOV 


012737 


077406 


172302 




MOV 


012737 


077406 


172304 




MOV 


012737 


077406 


172306 




MOV 


005037 


172310 






CLR 


005037 


172312 






CLR 


105767 


166060 






TSTB 


001005 








BNE 


005037 


172314 






CLR 


012737 


077406 


172316 




MOV 


005037 


172340 




VMK: 


CLR 


012737 


000200 


172342 




MOV 


005037 


172344 






CLR 


005037 


17P346 






CLR 


005037 


172350 






CLR 


005037 


172352 






CLR 


105767 


166006 






TSTB 


001005 








BNE 


005037 


172354 






CLR 


012737 


177600 


172356 




MOV 


005767 


165400 




VMKl: 


TST 


100003 








BPL 


052737 


000020 


172516 




BIS 


012737 


000001 


177572 


IJ: 


MOV 


000207 








RTS 



THE PROGRAM IS POINTED TO BY PARS 0 AND 1. 
THE MEMORY UNDER TEST IS POINTED TQ BY PARS 2 AND 3. 
THE DEVICE ADDRESS AREA IS POINTED TO BY PAR 7. 
PARS 4. 5. AND 6 ARE UNUSED. 
************************************ ********** ******* 

MHINIT: 

#200 l*400>UP+RU.a#KIPDR0 
#200 -1*400* UP +RU.a*KIPDRl 
#200 1*400^UP«RU,9«KIPDR2 
«200-l*400*UP*RU.9«KIPDR3 
9#KIPDR4 
a#KIPDP5 
$AUTOB 
VMK 

a#KIPDR6 

#200-l*400*UP*RU,a#KIPDR7 

MAP PARO INTO BAnKO 

MAP PARI INTO BANKI 
MAP PAR2 INTO BANKO 



:SET KIPDRO 
;SET KIPDRl 
;SET KIPDR2 
;SET KIPDR3 



RU UP 200 BLOCKS 
RU UP 200 BLOCKS 

RU UP 200 Blocks 

RU UP 200 BLOCKS 



a#KIPARO 
200. a#KIPARl 



;:V IF TRUE XXDP CHAIN MODE 
;:V DO NOT TOUCH KIPDR6 OR KIPDR7 

I SET KIP0R7 = RU UP 200 BLOCKS 



amhR2 

a#KIPAR3 
a#KIPAR4 
a#KIPAR5 
$ AUTOS 
VMKl 

8#KIPAR6 

#177600. a#KIPAR7 
MMAVA 
1$ 

#BIT4.a#SR3 

#i,a#SR0 

PC 



;:V IF TRUE XXDP CHAIN MODE 
::V DO NOT TOUCH KIPAR6 OR KIPAR7 

:MAP PAR7 INTO I/O BANK 
IF 22 BIt ADR NOT AVAILABLE 
THEN BRANCH 

ELSE ENABLE 22 BIT ADDRESSING 
ENABLE MEMORY MANAGEMENT 
RETURN 



**************************************************************** 

* MEMORY ADDRESS POINTER INITIALIZATION ROUTINES. 
J*************************************************************** 



100000 

165340 

000020 
166606 



172344 
013362 
165300 



000124 
004574 



166612 



166526 
166520 



013250 000007 



INITMM: 

MOV 
MOV 
MOV 
CLR 
TST 
BEQ 
MOV 
MOV 

1$: CLR 
SOB 
CLR 

2$: MOV 
ADD 
MOV 
MOV 
JSR 
JSR 

: FATAL ERROR 
.UORD 



RO.-(SP) 
Rl.-CSP) 
#BiT15.PLUSl 
R2 

MMAVA 
2$ 

#20.R0 
.BITPT.Rl 

mh 

RO.IJ 

a#KIPAR2 

#INITEX,MM0RE 

RELOCF.MMORE 

(SP)+.ftl 

(SP)*.RO 

PC.MMUP 

PC. $ERROR 



;:PUSH RO ON STACK 
;:PUSH Rl ON STACK 

; INITIALIZE ADDRESS 



:;POP STACK INTO Rl 
:;POP STACK INTO RO 

;*** ERROR **♦ (GO TYPE A MESSAGE) 

: ERROR TYPE CODE. 



CVMSAB 0 2 HEGAUORO MEMORY EX MACRO ^05. 02 
MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES. 



Monday 23-Dec 85 08:45 Page 19-2 



2767 013252 
2^68 



'769 
577C 



277; 

?77! 

?774 0132 



013254 
013254 
013256 
2771 013260 
013262 
013^^6 

2775 013274 

2776 013300 

2777 013302 

2778 013304 

2779 013312 

2780 013316 

2781 013320 

2782 013326 



1784 



mm 

013344 

2785 013346 

2786 013352 



013356 
2787 013360 
2^88 013362 
2789 013366 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 

2798 013370 
2799 



000000 



010046 
010146 
005002 
005767 
001414 
012700 
016701 
005021 
077002 
012767 
005037 
000403 
012767 
012767 
066767 
012601 
012600 
004767 
004767 

000007 
000000 
010467 
000204 



012705 020000 



013374 


106746 




013376 


105066 


000001 


013402 


004767 


005200 


2800 013406 


005767 


165124 


2801 013412 


001475 




2802 013414 


010046 




013416 


010146 




013420 


010346 




013422 


010446 




2803 013424 


012702 


040000 


2804 013430 


005767 


166346 


2805 013434 


001003 




2806 






'807 013436 


062737 


000400 


2808 013444 


016701 


166346 


2809 013450 


012700 


000020 


2810 013454 


006367 


166322 



HALT 



:FATAL ERROR!!! NO MEM INDICATED IN MEMMAP ABOVE 8K 



INITDN: 



165250 

000020 
166516 



000001 166470 
172344 

000020 166366 

013362 166420 

165172 166412 



000362 
004466 



166366 



MOV 

MOV 
CLR 
TST 
BEQ 
MOV 
MOV 
CLR 
SOB 
MOV 
CLR 
BR 
MOV 
MOV 
ADD 
MOV 
MOV 
JSR 
JSR 

;FATAL ERROR 
.WORD 
HALT 

INITEX: MOV 
RTS 



1$: 



2$: 
3$: 



RO.-(SP) 
Rl.-CSP) 
R2 

MMAVA 
2$ 

*20.R0 
.BifPT.Rl 
(RD* 
R0.1» 

#b1to,plusi 

a*KIPAR2 
3$ 

*BIT4,BITPT 

#INITEX,MM0RE 

RELQCF.MMORE 

(SP)*.ftl 

CSP)+.RO 

pc.mm6own 

PC, $ERR0R 



!:PUSH RO ON 
;:PUSH Rl ON 



jTACK 
)TACK 



ijPOP STACK INTO Rl 
:;POP STACK INTO RO 

;*** ERROR *** (GO TYPE A MESSAGE) 



R4.MM0RE 
R4 



:ERROR TYPE CODE. 
.•FATAL EftROR!!! NO MEM INDICATED IN MEMMAP ABOVE 8K 



* COMMON UPWARDS ADDRESSING ROUTINE 

* FINDS NEXT EXISTING 8K BANK AND UPDATES POINTERS. 

* GOES TO ADDRESS IN "MMORE" IF MORE BANKS. 

* DOES STRAIGHT EXIT WHEN ALL MEMORY HAS BEEN DONE. 



MMUP : MOV 
;* THE NEXT 
;* UIHTOUT 
MFPS 
CLRB 

JSR 
TST 
BEQ 
MOV 
MOV 
MOV 
MOV 
MOV 
TST 
BNE 



1^20000. R5 



:SET UP 8K TEST COUNTER 



TWO INSTROcTIONS PRfiVIDE AN INTERFACE TO THE $CKSWK ROUTINE 
USING. A_ "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



1$: 
100$: 



ADD 
MOV 
MOV 
ASL 



■CSP) 
KSP) 

PC, $CKSWR 

mmAva 

7$ 

RO.-(SP) 

R1,-(SP) 

R3. (SP) 

R4.-(SP) 

#40000. R2 

PLUSl 

100$ 

#400.3#KIPAR2 
.BITI^T.Rl 
#20. RO 
PLUSl 



PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSW RETURN. 
GO TO THE SUBROUTINE 
CHECK FOR MEMORY MANAGEMENT 
IF MMAVA = 0 .BRANCH TO NGN <T MODE 
;PUSH RO ON STACK 
;PUSH Rl ON STACK 
:PUSH R3 ON STACK 
;PUSH R4 ON STACK 
MMU AVAIL. SET UP VA = 0.PAR2 
CHECK IF FIRST TIME ENTRY 
DO NOT ADD 8K TO PAR2 
UPON FIRST ENTRY 
ADD 8K TO PAR2 
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SEQ 00->2 



2811 013460 

2812 013462 

2813 013464 

2814 013466 
013470 
013472 
013474 

2815 013476 

2816 013500 

2817 013504 

2818 013510 

2819 013514 

2820 013516 

2821 013520 

2822 013522 

2823 013524 

2824 013532 

2825 013540 
01i'i2 
0135 I 
01354u 

2826 013550 

2827 013554 

2828 013556 

2829 013564 

2830 013566 

2831 013570 

2832 013576 

2833 013600 

2834 013604 

2835 013606 

2836 013612 

2837 013616 

2838 013620 

2839 013626 

2840 013630 

2841 013634 

2842 013636 

2843 013644 

2844 013646 

2845 013652 

2846 013656 

2847 013660 

2848 013664 

2849 013672 

2850 013674 

2851 013700 
2852 

2853 

2854 013704 

2855 013706 

2856 013712 

2857 013716 
2858 

2859 013720 

2860 013724 

2861 013726 



006121 

077002 

103005 

012604 

012603 

012601 

012600 

000510 

016703 

016704 

012700 

032324 

001002 

077003 

000745 

013737 

062737 

012604 

012603 

012601 

012600 

005767 

100005 

032767 

001005 

000436 

032767 

001432 

012705 

000427 

006367 

006167 

103440 

036767 

001003 

062702 

000764 

032767 

001407 

012705 

005767 

CC1402 

062705 

032767 

001407 

066702 

005767 



001402 
162705 
016716 
000207 

005767 
001402 
004767 



2$; 



166312 
166302 
000020 



172344 
000200 



164762 
100000 

100000 

010000 

166170 
166076 

166070 

040000 

000010 

010000 
166116 

004000 
000001 

166062 
166056 



000400 
166036 



167446 
002106 



172346 
172346 



101$; 
3$: 

4$: 



166166 
166116 



5$: 
6$: 
7$: 



165726 
166050 



8$: 



166022 9$: 



ROL CRD* 

SOB R0,2$ 

BCC 101$ 

MOV (SP)+,R4 

MOV (SP)*,R3 

MOV (SP)+.R1 

MOV (SP)+,RO 

BR 12$ 

MOV .BITPT.R3 

MOV .TSTMAP,R4 

MOV #20, RO 

BIT (R3)*.(R4)+ 

BNE 4$ 

SOB R0.3$ 

BR 1$ 

MOV a*KIPAR2.a#KIPAR3 

ADD #200,8#KiPAR3 

MOV (SP)+,R4 

MOV (SP;*.R3 

MOV (SP)+.R1 

MOV (SP)+.RO 

TST MMAVA 

BPL 5$ 

BIT #BIT15.BITPT+36 

BNE 6$ 

BR 9$ 

BIT #BIT15.BITPT 

BEQ 9$ 

MOV #10000. R5 

BR 9$ 

ASL PLUSl 

ROL BITPT 

BCS 12$ 

BIT BITPT. TSTMAP 

BNE 8$ 

ADD #40000. R2 

BR 7$ 

BIT #BIT3. BITPT 

BEQ 9$ 

MOV #10000,R5 

TST FLG30K 

BEQ 9$ 

ADD #4000. R5 

BIT #BITO. BITPT 

BEQ 10$ 

ADD FSTADR.R2 

TST FSTADR 



ROTATE TOTAL TABLE TO INSURE 
ROTATION OF ONE BIT 
TESTING IS DONE WHEN CARRY BIT IS SET 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO Rl 
•POP STACK INTO RO 
DONE. READY TO EXIT 



POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO Rl 
POP STACK INTO RO 



BEQ 

SUB 

10$: MOV 
11$: RTS 
:* BEFORE FINAL 
i2$: TST 

BEQ 

JSR 



! FSTADR = STARTING ADDRESS 
; 0 OR 1000 IF VECTOR AREA IS 
: PROTECTED. 

10$ 

#400.R5 
MMORE.(SP) 
PC 

EXIT. CHECK FOR ANY NON TRAP PARITY ERRORS. 



; ADJUST ADDR COUNTER TO PROTECT 0-1000 



MPRX 
13$ 
PC.CKPMER 



CHECK FOR ANY PARITY REGISTERS PRESENT. 
BR IF NONE. 

CHECK FOR PARITY MEMORY ERRORS. 
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SEQ 0073 



2862 013732 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 013734 
2872 

013740 
013742 

013746 

2873 013752 

2874 013756 

2875 013760 
013762 
013764 
013766 

2876 013770 

2877 013776 

2878 014002 

2879 014006 

2880 014012 

2881 014016 

2882 014020 

2883 014022 

2884 014024 
014026 
014030 
014032 

2885 014034 

2886 014036 

2887 014042 

2888 014046 

2889 014052 

2890 014056 

2891 014062 

2892 014064 

2893 014066 

2894 014070 

2895 014072 

2896 014100 

2897 014106 

2898 014112 
014114 
014116 
014120 

2899 014122 

2900 014126 

2901 014130 

2902 014136 

2903 014140 

2904 014142 



000207 



012705 020000 



106746 
105066 

004767 
005767 
001502 
010046 
010146 
010346 
010446 
162737 
016700 
0^2700 
012703 
006267 
006040 
077302 
103005 
012604 
012603 
012601 
012600 
000517 
016700 
062700 
016701 
062701 
012703 
034041 
001002 
077303 
000737 
013737 
062737 
012702 
012604 
012603 
012601 
012600 
C05767 
100005 
032767 
001005 
000442 
032767 



000001 

004634 
164560 



000400 
166014 
000040 
000020 
165764 



165754 
000040 
165740 
000040 
000020 



172344 
000200 
100000 



164410 
100000 

100000 



13*: 



RTS 



PC 



; STRAIGHT RETURN. 



:* MEMORY DOWNWARDS ADDRESSING SUBROUTINE. 

:* FINOS NEXT LOWER 8K BANK AND UPDATES POINTERS. 

;* GOES TO ADDRES5 IN "MMORE' IF MORE BANKS. 

:* DOES STRAIGHT EXIT WHEN ALL MEMORY HAS B^EN DONE. 



MM ^'."N: MOV 



f20000.R5 



iSET UP 8K TEST COUNTER 



;* THE NEXT TWO INSTRUCTIONS PR6vIDE AN INTERFACE TO THE $CKSWR ROUTINE 
;* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



172344 1$: 



2$: 



100$; 



3$; 



172346 
172346 



4$; 



165614 
165544 



5$ 



MFPS 
CLR6 

JSR 

TST 

BEQ 

MOV 

MOV 

MOV 

MOV 

SUB 

MOV 

ADD 

MOV 

ASR 

ROR 

SOB 

BCC 

MOV 

MOV 

MOV 

MOV 

BR 

MOV 

ADD 

MOV 

ADD 

MOV 

BIT 

BNE 

SOB 

BR 

MOV 

ADO 

MOV 

MOV 

MOV 

MOV 

MOV 

TST 

BPL 

BIT 

BNE 

BR 

BIT 



-(SP 
KSP 



PC. $CKSWR 

mmAva 

7$ 

RO.-(SP) 

Rl.-(SP) 

R3.-(SP) 

R4.-(SP) 

#460.a#KIPAR2 

.BITPT.RO 

#40. RO 

#20.R3 

PLUSl 

-(RO) 

R3.2$ 

106$ 

"SP)+,R4 

SP)*.R3 

SP)+.R1 

SP)*.RO 
11$ 

.BITPT.RO 

*40.R0 

.TStMAP.Rl 

*40.R1 

#20.R3 

-(R6).-(R1) 

4$ 

R3.3$ 

1$ 



PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSW RETURN. 
GO TO THE SUBROUTINE 
CHECK FOR MEMORY MANAGEMENT 
IF MMAVA = 0 THEN BR TO NON KT MODE 
;PUSH RO ON STACK 
;PUSH Rl ON STACK 
;PUSH R3 ON STACK 
:PUSH R4 ON STACK 
DOWN DATE TO NEXT 8K BANK 

SET UP TO MOVE POINTER 
ONE POSITION THRU 20 WORD TABLE 
GET INITIAL VALUE OF BIT 
MOVE THE POINTER 

CONTINUE TESTING UNTIL CARRY BIT SET 

:POP STACK INTO R4 

;POP STACK INTO R3 

;POP STACK INTO Rl 

:POP STACK INTO RO 

tESTING DONE, READY TO EXIT 

THEN WE HAVE TESTED LAST BANK 

IF NO UNDERFLOW SET UP TO 

SEE IF BANK SHOULD BE TESTED 



CHECK IF BANK IS UNDER TEST 
IF YES GO SET UP PARS 
IF NO CHECK ALL POSSIBLES 
IF NOT GO CHECK NEXT LOWER B{ 



a^KIPAR2.S*KIPARi;MAKE PAR2 AND PAR3 POINT TO SAME 



200,S#k1pAR3 
#100000. R2 
(SP)+.r4 
(SP)+.R3 
(SP)*.R1 
(SP)*.RO 
MMAVA 
5$ 

#BIT15.BITPT+36 

6$ 

9$ 

#BIT15.BITPT 



MAKE KIPAR3 UPPER 4K 
SET UP FIRST ADDRESS * 2 
:POP STACK INTO R4 
;POP STACK INTO R3 
J POP STACK INTO Rl 
:POP STACK INTO RO 
tHECK FOR 22 BIT ADDRESSING 
IF NO, CHECK 18 BIT MODE 
TESTING HIGHEST 22 BIT SEG.? 
IF YES.DO ONLY 4K SEGMENT 
IF NO. DO 8K SEGMENT 
TESTING HIGHESTT 18 BIT SEGMENT 



J6 
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2905 014150 


001436 








BEQ 


2906 014152 


012702 


060000 




Si: 


MOV 


2907 014156 


012705 


010000 






MOV 


2908 014162 


000431 






BR 


2909 014164 


006267 


165524 




7$: 


ASR 


2910 014170 


103441 








BCS 


2911 014172 


036767 


165516 


1653'^4 




BIT 


2912 014200 


001003 








BNE 


2913 014202 


162702 


040000 






SUB 


2914 014206 


000766 








BR 


2915 014210 


032767 


000010 


165476 


8$: 


BIT 


2916 014216 


001413 








BEO 


2917 014220 


162702 


020000 






SUB 


2918 014224 


012705 


010000 






MOV 


2919 014230 

2920 014234 


005767 


165540 






TST 


001404 








BEQ 


2921 014236 


062702 


010000 






ADD 


2922 014242 


062705 


004000 






ADO 


2923 014246 


032767 


000001 


165440 


9$: 


BIT 


2924 014254 


001405 








BEQ 


2925 014256 


005767 


165500 






TST 


2926 014262 


001402 








BEQ 


2927 014264 


162705 


000400 






SUB 


2928 












2929 014270 


016716 


165460 




10$: 


MOV 


2930 014274 


000207 








RTS 


2931 
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SEQ 0074 



9$ 

#60000.R2 
*10000.R5 
9$ 

BITPT 
lU 

BITPT. TSTMAP 
8$ 

#40000,R2 
7$ 

*BIT3. BITPT 
9$ 

#20000. R2 
#10000.R5 
FLG30K 
9$ 

#10000 , R2 
#4000, R5 
^fBITO. BITPT 
10$ 

FSTADR 
10$ 

#400. R5 

MMORE.CSP) 
PC 



IF NO .DO 8K SEGMENT 

DO ONLY 4K SEGMENT 

SET UP 4K WORD COUNTER 

GET OVER NON KT ROUTINE 

POINT TO NEXT LOWEST BANK 

IF CARRY FOR LSB THEN DONE TESTING 

IS THIS BANK UNDER TEST? 



; CHECK FIRST ADDRESS = 0 OR 1000 

[PROTECT VECTOR AREA 0-1000 FROM 
: BEING TESTED IF FSTADR =1000 
: SETUP RETURN FOR MORE TESTING 
; RETURN 
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SEO 0075 



2933 
2934 
2935 
2936 
2937 
2938 
2939 



2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 



2956 
2957 
2958 
2959 
2960 
2961 
2962 



014276 
014302 
014304 
014306 
014310 
014312 
014314 
014316 
014322 
014326 
014330 
014332 
014336 
014340 
014342 
014346 
014350 
014352 
014354 
014360 

014362 
014364 
014366 
014370 
014372 



2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 



014374 
014376 
014400 
014402 
014404 
014406 
014412 
014416 
01H422 
014424 
014426 
014430 
014432 
014434 



014440 

2972 014442 

2973 014444 
2974 

2975 014446 
2976 

2977 014450 
014450 



005767 
001435 
010146 
010346 
010446 
010546 
010005 
042700 
012701 
006200 
077102 
012704 
060004 
011403 
012701 
006303 
077102 
010500 
042700 
060300 

012605 
012604 
012603 
012601 
000207 



005000 
010146 
010246 
010346 
010446 
016701 
012703 
012702 
012104 
006204 
103410 
105200 
001004 
004^67 

000007 
000000 
077211 

077315 



012604 



164234 



017777 
000014 



172340 
000006 

160000 



165404 
000020 
000020 



003404 



.SBTTL SUBROUTINES FOR ADDRESS AND UORSE CASE NOISE TESTS. 

; ; ************** 

;* SUBROUTINE TO CALCULATE PHYSICAL ADDRESS AND PUT IT IN RO (BOTTOM 16 BITS). 

';*************************************************************** 



AhYADR: 



1$: 



2$: 



3$: 



4$: 



TST 
BEQ 
MOV 
MOV 
MOV 
MOV 
MOV 
BIC 
MOV 
ASR 
SOB 
MOV 
ADD 
MOV 
MOV 
ASL 
SOB 
MOV 
BIC 
ADD 

MOV 
MOV 
MOV 

MOV 
RTS 



MMAVA 
4$ 

Rl.-(SP) 

R3.-(SP) 

R4.-(SP) 

R5,-(SP) 

R0.R5 

#1)777, RO 

*12..Ri 

RO 

R1.2$ 

#KtPAR0.R4 

R0.R4 

(R4),R3 

R3 

R1.3$ 
R5,R0 

#1^0000. RO 
R3,R0 

(SP)*.R5 
(SP)*.R4 
(SP)*.R3 
(SP)*.R1 
PC 



CHECK FOR HEM MGMT AVAILABLE 
BRANCH IF NO MEM MGMT 
PUSH Rl ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
.PUSH R5 ON STACK 
SAVE FOR PHYSICAL ADDR. ADDITION 
CLEAR VIRTUAL ADDR BITS 
SET UP ROTATE COUNTER 
TO SHIFT PAR POINTER 
INTO BITS 0-3 
STORE START OF PARS 
USE PAR POINTER IN 0-3 AS INDEX 
STORE CONTENTS OF PROPER PAR 
SET UP COUNTER TO 
CONVERT PAR CONTENTS 
TO A PHYSICAL "K" ADDRESS 
STORE VIRTUAl ADDRESS 
CLEAR PAR POINTER 
ADD PHYSICAL "K" ADDRESS 
TO OBTAIN 16 BIT PHYSICAL ADDRESS 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO P^ 
.POP STACK INTO Rl 
hll WITH PHYSICAL ADDR IN RO 



; ;*************************************************************** 

i* SUBROUTINE TO PUT BANK NUMBER INTO RO. 
I*************************************************************** 



6ANKN0: CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

1$: MOV 
MOV 

2$: ASR 
BCS 
INCB 
BNE 

JSR 

; FATAL ERROR 
.WORD 



:sp) 

SP) 
SP 

:sp 



RO 

Rl,-( 
R2.- 
R3.- 
R4.-(.. 
.BITPT. Rl 
#20. R3 
#20, R2 
(Rl)*.R4 
R4 
4$ 
RC 
3$ 
PC. 



$ERROR 



INIT RO 
PUSH Rl 



ON STACK 



PUSH R2 ON STACK 
PUSH R3 CN STACK 
.PUSH R4 ON STACK 
START OF BIT POINTER TABLE 
SET UP BITPT TABLE COUNTER 
SET UP ROTATE COUNTER FOR 1 
GET WORD TO ROTATE BIT 
ROTATE BITPT WORD TO FIND BANK 
IF CARRY SET .THEN BANK FOUND 
COUNT BANKS. 
BR IF NOT OVEkFLOW. 
*** ERROR *** (GO TYPE A MESSAGE) 



WORD 



3$: 



4$: 



HALT 
SOB 

SOB 



MOV 



7 :ERROR TYPE CODE. 

:F AT AL ERROR!!! NO POINTER FOUND. 
R2. ^$ :IF NOT FINISHED ROTATING WORD 

;G0 BACK AND ROTATE AGAIN 
R3. 1$ ;IF NOT FINISHED BITPT TABLE 

;THEN ROTATE THROUGH NEXT WORD. 

(Sf')*.R4 :;POP STACK INTO R4 



L6 
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SEQ 0076 











fti ?<^n? 




n\AA^ 


01 PA01 










PQ7Q 


















C 7vC 












ni AAA? 


0044A7 


1 7^^470 




01 no?? 




2985 014470 


077Sn? 






004767 

VwH (Of 


17ftfc7? 














P9f)A 






?989 






2990 

?991 014500 






1061 1? 




?99? 01450? 

C77C vX*v.JvC 


1061 1? 

X wUX xc 




poQT 014504 


1061 IP 

X wV/X Xc 




?994 014506 


106112 

X vv/x xc 




2995 014510 


1061 1? 

X wx xc 




P996 01451? 

C7 7V/ VX"tJXC 


1061 12 
X wx xc 




?997 014514 


1061 12 

X vv;x xc 




P99R 014516 


1061 IP 

X vv/X XC 




P*J99 014520 


106122 

X W X cc 




3000 014522 


^06112 

A W X X c 




3001 014524 


106112 

X w X xc 




300? 014526 


1061 ' ? 

X VVX aC 




3003 014530 


106112 

X W X X c 




3004 01453? 


1061 12 

X X XC 




3005 014534 


106112 
X vux xc 




3006 014536 


1061 1? 




3007 014540 


1061 1? 




3008 01454? 


10612? 




3009 014544 


000?07 




3010 






^ vX X 






201? 






3013 






3014 014546 


01270< 

V X C ' v~ 


000020 

W WC V 


3015 






3016 01455? 


010022 

V/X VvCC 




3017 014554 

JvX 1 wX"f J J"f 


010022 

vX vvCC 




3018 014556 


010022 

VX VVCC 




3019 014560 


01002? 

vX WCC 




3020 






3021 014562 


0103?? 

VX v<JCC 




3022 014564 


010322 

VX Vs/CC 




3023 014566 


010322 




3024 014570 


010322 




3025 






3026 01457^ 


010022 




3027 0145/4 

3028 014"^ 76 


010022 




010022 




102^ 014 jOO 


010022 





MOV 
MOV 
MOV 
RTS 



(SP)*.R3 
(SP)*,R2 
(SP)*.R1 
PC 



:POP STACK INTO R3 
:POP STACK INTO R2 
:POP STACK INTO Rl 

Aeturn 



; ; ************************************ 

:* SUBROUTINE TO WRITE THE CONSTANT IN RO INTO ALL OF MEMORY. 
SfTCON: 



1$: 



JSR 
MOV 
SOB 
JSR 
RTS 



R4. 
RO. 
R5. 
PC. 

PC 



INITMM 
(R2)* 
1$ 

MMUP 



INITIALIZE 'HE MEMORY ADDRESS POINTERS. 
MOV CONSTANT INTO MEMORY 
BRANCH IF MORE IN CURRENT BLOCK 
FIND NEXT BLOCK AND LOOP TO 1$. 
RETURN 



; ; ****************** 

;* ROUTINE TO ROTATE 

• ; ****************** 

ROTATE: ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
ROLB 
RTS 



'C BIT THROUGH A MEMORY LOCATION. 
********************************************* 



(R2: 

(R2 



;R2)=177776 
:R2)= 177775 
;R2 3=177773 
R2)=177767 
R2)=177757 
R2)= 177737 
R2)=177677 
R2)=177777 
R2>177577 
R2)=177377 
R2 5=176777 
R2)= 175777 
:R2)=173777 
:R2)=167777 
R2)=157777 
R2)=137777 
R2 5=077777 
R2)=177777 
RETURN 



OR 000001 
OR 000002 
OR 000004 
OR 000010 
OR 000020 
OR 000040 
OR 000100 
OR 000000 
OR 000200 
OR 000400 
OR 001000 
OR 002000 
OR 004000 
OR 010000 
OR 020000 
OR 040000 
OR 100000 
OR 000000 



; *************************************************************** 

* SUBROUTINE TO WRITE 3 XOR 9 PATTERN INTO 256. WORD BLOCK. 
W3X9: MOV «16..R4 ; EACH LOOP WRITES 256. WORDS 



2$; 



MOV 
MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 



R0.(R2)* 
R0.(R2)* 
R0.(R2> 
R0.(R2)t 

R3.(R2)* 
R3.(R2)* 
R3.(R2)* 
R3.(R2)' 

R0,(R2)* 
R0.CR2)* 
R0.(R2)* 
R0,(R2)» 



M6 
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3C30 

3031 014602 

3032 014604 
5033 014606 
3034 014610 
3035 

5036 014612 

3037 014614 

3038 014616 
014620 
014622 

3039 014624 



010322 
010322 
010322 
010322 

005304 
001356 
010046 
010300 
012603 
000207 



MOV R3.(R2)* 

MOV R3.(R2;* 

MOV R3.(R2)* 

MOV R3.(R2)* 

DEC R4 

BNE 2$ 

MOV RO. -(SP) 

MOV R3. RO 

MOV (S^)*, R3 

RTS PC 



SEQ 00' 



SAVE RO 

PUT R3 INTO RO 

PUT SAVED RO INTO R5 

RETURN 
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SEQ 0078 



3041 
3042 
3043 
3044 

3045 014626 
014626 
014630 
014632 

3046 014634 

3047 014636 

3048 014640 

3049 014644 

3050 014646 

3051 014650 

3052 014652 

3053 014656 

3054 014660 

3055 014662 

3056 014666 

3057 014672 

3058 014676 

3059 or 702 
01^706 

3060 014710 

3061 014712 

3062 014716 

3063 014720 
30b4 014722 

3065 014724 
014730 

3066 014732 
014734 

3067 014740 
014742 
014744 

3068 014746 
3069 

3070 
3071 
3072 
3073 

3074 014750 

3075 014756 

3076 014760 

014764 

3077 014766 

3078 014770 
014770 
014772 

3079 014774 

3080 015000 

3081 015002 

3082 015010 
3033 015014 
3084 015022 



010246 
010346 
010446 
012502 
012503 
012704 
012223 
005304 
001375 
012704 
024243 
001417 
011267 
011367 
010267 
010367 
004767 
000023 
OOOOOC 
162705 
000746 
005304 
001355 
004567 
024704 

010346 
004767 
012604 
012603 
012602 
000205 



022767 
001404 
004767 

000007 
000000 

010046 
010146 
005767 
001441 
012737 
012700 
162"" 37 
006000 



020000 



020000 



164226 
164224 
164212 
164210 
003136 



000004 

005022 
006526 



.SBTTL RELOCATION SUBROUTINES. 

:* ROUTINE TO RELOCATE PROGRAM CODE 

J 2 ************************************************************ A** 

RELOC: 



4$: 



1$; 



2$; 



3*: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
DEC 
BNE 
MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 
MOV 
JSR 
.WORD 
HALT 
SUB 
BR 
DEC 
BNE 
JSR 
.UORD 

MOV 
JSR 
MOV 
MOV 
MOV 
RTS 



R2.-(SP) 
R3.-(SP) 
R4.-(SP) 
CRS)». R2 
(R5)*. 
*20006. 
(R2)*. 
R4 
1$ 

*20000, 
-(R2). 
3$ 



R3 
R4 

(R3)- 



R4 

-(R3) 



(R2). 
(R3). 
R2. 
R3. 
PC, 
23 

#4. 

4$ 

R4 

2* 

prLoc 




$GDOAT 
$B0DAT 
$GDADR 
$BDADR 
TERROR 

sFATAL 

As 



♦PRINT 



-(SP) 
$TYPAO 



.•PUSH R2 ON STACK 
:PUSH R3 ON STACK 
,:PUSH R4 ON STACK 
i6ET FIRST LOCATION. 
iGET FIRST LOCATION OF DESTINATION. 
SET UP 8K COUNTER. 
;MOV THE DATA. 
COUNT THE UORDS, 
;BR IF MORE. 
; RESET THE COUNTER. 
; CHECK THE DATA JUST MOVED. 
;BR IF DATA OK. 
iGET SOURCE DATA. 
iGET DESTINATION DATA. 
iGET SOURCE ADDRESS. 
iGET DESTINATION ADDRESS. 
;*** ERr.OR *** (GO TYPE A MESSAGE) 
:ERROR TYPE CODE. 
ERROR ! • ! RELOCATION FAILED . 
ADJUST RETURN POINTER. 
;G0 BACK AND TRY AGAIN. 
1 COUNT WORDS. 
iBR IF MORE. 

iGO PRINT OUT THE FOLLOUING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"PROGRAM RELOCATED TO " 
iPUT THE DATA ON THE STACK, 
i DETERMINE THE PHYSIHL ADDRESS AND TYPE IT. 
;POP STACK INTO R4 
;POP STACK INTO R3 
,:POP STACK INTO R2 
iftETURN 



000001 163556 
003060 



:* SUBROUTINE TO MOVE PROGRAM FROM BOTTOM TO TOP 8K BANK OF 128KU 
:* HIGHEST AVAILABLE BANK WITH KT WILL BE 700000 - 737776 
:* HIGHEST AVAILABLE BANK NON-KT WILL BE 100000 - 137776 



MEMORY, 



ftkTOP: CMP 
BEQ 



jFATAL 



IJ; 



163536 

007600 172346 
100000 

000400 172346 



2»: 



JSR 
ERROR 
.WORD 
HALT 

MOV 
MOV 
TST 
BEQ 
MOV 
MOV 
SUB 
ROR 



PC. 



PRGMAP : CHECK THAT THE PROGRAM IS NOW IN BANKS 0 

:6R IF OK 

TERROR ERROR *** (GO TYPE A MESSAGE) 



AND 1. 



: ERROR TYPE CODE. 
; FATAL ERROR!!! PROG SHOULD BE 



IN BANKS 0 AND 1 



RO.-(SP) 
R1,-(SP) 

mhAva 

10$ 

#7600. 8*KIPAR3 

WITlS. RO 

MOO. a«KIPAR3 
RO 



isPUSH RO ON STACK 
::PUSH Rl ON STACK 



:SET PAR TO TOP Of- MEM 
...HI 128K. 

;BACK DOWN ONE BANK. 
..LO 64K. 
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SEQ 0^9 



3085 015024 
3066 015026 

3087 015032 

3088 015054 

3089 015042 

3090 015050 

3091 015054 

3092 015056 

3093 015062 

3094 015064 

3095 015066 

3096 015074 
3097 

3098 015102 
3099 

3100 015104 

3101 015110 

3102 015114 

3103 015120 

3104 015122 

3105 015124 

3106 015130 

3107 015132 

3108 015136 

3109 015140 
015140 

015144 

3110 015146 

3111 015150 

3112 015154 

3113 015160 

3114 015162 

3115 015164 

3116 015170 
3117 

3118 015172 

3119 015174 

3120 015200 

3121 015204 

3122 015210 

3123 015214 

3124 015220 

3125 015224 

3126 015230 

3127 015234 

3128 015236 

3129 015240 

3130 015244 

3131 015246 

3132 015252 
015254 

3133 015256 

3134 015262 
3135 

3136 
3137 



105445 

030067 
001770 
013737 
162737 
030067 
001031 
004567 
000000 
040000 
013737 
013737 

000461 

012700 
012701 
162701 
006200 
103406 
030067 
001771 
030067 
001404 



000007 
000000 
010167 
004567 
000000 
000000 
010167 
06010"' 

060106 
010167 
060137 
060137 
060137 
060167 
060167 
062701 
066721 
005721 
001776 
024127 
001371 
010067 
012601 
012600 
066716 
000207 



J 64462 

172346 
000200 
163460 

177544 



r2344 
172346 



000010 
140000 
040000 



164364 

163376 



004767 002700 



000006 
177446 



163342 



163332 
000004 
000024 
000114 
163710 
163706 
002004 
163276 



177777 
163262 

163250 



172344 
172344 



172340 
172342 



3$ 
4$: 



BCS 
BIT 
BEQ 
MOV 
SUB 
BIT 
BNE 
JSR 
.WORD 
.UORO 
MOV 
MOV 



90 J 
RO. 
2$ 



MEWAP ;CHECK FOR BANK EXISTS. 



.BR IF NO Bm FOUND 
a*KIPAR3.8*KIPAR^ jCOPY PAR 
#200. 
RO, 
90i 
R5. 
0 

40000 



a€'JPAR2 i^ACK OOUN UITH LOU PAR, 

Check for conflict. 



PR6MAP 



RELOC 



: ABORT IF DESTINATION OVERLAYS SOURCE. 
:G0 RELOCATE PROGRAM. 
: SOURCE FIRST ADDRESS. 
,vvvv :D£STINATION FIRST ADDRESS. 

8#KIPAR2,a#KIPAR6 ; RELOCATE LO BANK 
8*KIPAR3.8#KIPAR1 :RELOCATE HI BANK. 
PROGRAM SHOULD NOW BE EXECUTING OUT OF LAST TWO BANKS OF MEMORY. 
BR 30$ :BR TO COMMON EXIT. 



10$: 
11$: 



90$; 



MOV 
MOV 
SUB 
ASR 
BCS 
BIT 
BEQ 
BIT 
BEQ 



#6IT3. RO 
#140000. Rl 
#40000. Rl 
RO 
90$ 

RO, MEMMAP 
11$ 

RO, PRGMAP 
12i 



JSR 

; FATAL ERROR 
.WORD 
HALT 

12$: MOV 
JSR 
.UORO 

13$: .UORD 
MOV 
ADO 

:* PROGRAM NOU 
ADD 
MOV 
ADD 
ADD 
ADO 
ADD 
ADO 

14$: ADD 
15$: ADO 
16$: TST 

BEQ 

CMP 

BNE 

30$: MOV 
MOV 
MOV 
ADD 
RTS 



SET BANK POINTER TO TOP OF MEM. 

SET ADDRESS POINTER TO TOP 

BACK DOUN ONE BANK. 

MOVE POINTER DOUN ONE BANK. 

BR IF OVERFLOU. 

CHECK IF THIS BANK EXISTS. 

BR IF NON -EXIST ANT BANK. 

CHECK FOR A PROGRAM CONFLICT. 

BR IF NO CONFLICT. 



PC. 



Rl. 
R5. 

0 
0 

Rl 



$ERROR i*** ERROR *** (GO TYPE A MESSAGE) 



i3$ 
RELOC 



RELOCF 
PC 



EXECUTING OUT OF 
Rl, 
Rl. 



Rl. 

Rl. 

SI- 

Rl, 



#rAotab.ri 

RELOCF. (Rl)+ 
(RD* 



16$ 
-(Rl). 
15$ 
RO. 

(SP)^.RO 
RELOC^ (SP) 
PC 



:error type code, 
fatal error!!! not enough memory?? 

set data for relocation s'jbroutine. 
go relocate the program to top of mem. 
source starting address, 
destination starting address, 
set relocation factor in unrelocated code, 
jump to relocated program 
top of memory, 
sp : adjust the stack pointer to top of memory, 
relocf iset the relocation factor. 
a#errvec : adjust error vector. 
^ ^ ; adjust pouer fail vector, 
{adjust parity error vector. 
Adjust softuare suitch register. 

ADJUST softuare DISPLAY REGISTER. 
POINT TO THE RELATIVE RELOCATION TABLE. 
ADD RELOCATION FACTOR TO ADDRESSES IN TABLE. 
CHECK FOR INTERUM TERMINATOR. 
BR SO AS TO NOT MODIFY ZERO. 
CHECK FOR END OF TABLE. 
BR IF MORE IN TABLE. 
SET NEU PROGRAM MAP...LO 64K. 
;POP STACK INTO Rl 

:pop stack into ro 
Adjust return address. 

RETURN 



8#PURVEC 
S#PARVEC 
SUR 

DISPLAY 



M 

PRGMAP 



************* 

i SUBROUTINE TO RELOCATE PROGRAM BACK TO BANKS 0 AND 1. 
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SEQ 0080 



3138 

3139 015264 

3140 015272 

3141 015274 

015300 

3142 015302 

3143 015304 

3144 015310 

3145 015312 

3146 015316 

3147 015324 

3148 015330 

3149 015332 

3150 015334 

3151 015340 
3152 

3153 015346 
3154 

3155 015350 

3156 015354 

3157 015360 

3158 015364 

3159 015366 

3160 015370 
3161 

3162 015372 

3163 015374 

3164 015376 
3165 

3166 015402 

3167 015406 

3168 015410 

3169 015412 

3170 015416 

3171 015420 

3172 015422 

3173 015426 

3174 015432 

3175 015436 

3176 015442 

3177 015446 

3178 015450 

3179 015454 

3180 015462 
3181 

3182 
3183 
3184 
3185 
3186 

3187 015464 

3188 015470 
3139 015472 

015476 
3190 015500 



032767 
001404 
004767 

000007 
000000 
005767 
001417 
005037 
012737 
004567 
000000 
040000 
005037 
012737 

000440 

016746 
011667 
004567 
000000 
000000 
161607 

161606 
010046 
012700 

166620 
005720 
001776 
024027 
001371 
012600 
161637 
161637 
161637 
161667 
161667 
162616 
005067 
012767 
000207 



000001 
002544 

163226 

172344 
000200 
177276 



172340 
000200 



163156 
000004 
177242 



002004 
000002 

177777 



000004 
000024 
000114 
163466 
163464 

163056 
000001 



016700 164020 
001004 

004767 002346 

000007 
000000 



************************************** ******** 



163242 AfLO; BIT 
BEQ 
JSR 

: FATAL ERROR 
.UORD 



*1. 

1$ 

PC. 



PRGHAP 
$ERROR 



CHECK FOR PROGRAM ALREADY IN BANKS 0 

BR IF NO CONFLICT. 

*** ERROR *** (GO TYPE A MESSAGE) 



OR 1. 



1$; 



172346 



172342 



10$: 



20$: 



HALT 
TST 
BEQ 
CLR 
MOV 
JSR 
.WORD 
.UORD 
CLR 
MOV 
PROGRAM IS 
BR 

MOV 
MOV 
JSR 
.UORD 
.UORD 
SUB 



:ERROR TYPE CODE. 
jFATAL ERROR!!! PROGRAM ALREADY IN BANKS 0 OR 1! 
;CHECK FOR MEM MGMT. 
;BR IF NO MEMMGMT. 
;SET PAR 2 TO BANK 0. 
a*KIPAR3 iSET PAR 3 TO BANK 1. 
R5, ■ RELOC :G0 MOVE 8K INTO BANKS 0 AND 1. 
0 ;SOURCE STARTING ADDRESS. 

40000 ;DESTINATION SiAF ING ADDRESS. 

8#KIPAR0 : RESTORE PAR 0 TO BANKO. 

#200. a*KIPARl : RESTORE PAR 1 TO BANK 1. 
NOU EXECUTING OUT 6f BANKS 0 AND 1. 
30$ ;BR TO COMMON EXIT. 



1 1 1 



MMAVA 
10$ 
a#KIPAR2 
#200. 



(SP). 
R5. 

0 
0 

(SP). 
THE PROGRAM IS n6u 



RELOCF. -(SP) 



21$: 
22$; 



163052 



23$: 
30$: 



SUB 
MOV 
MOV 

SUB 
TST 
BEQ 
CMP 
BNE 
MOV 
SUB 
SUB 
SUB 
SUB 
SUB 
SUB 
CLR 
MOV 
RTS 



(SP), 
RO.-(SP) 

#rAdtab,ro 



20$ 
RELOC 



PC 

EXECUTING 
SP 



2(SP), 
(RO)* 
22$ 
-(RO). 
21$ 

:sp)*.Ro 

SP). 
SP). 
SP . 
SP). 

:sp). 

(SP)>. 
RELOC^ 



(RO)t 



#1. 
PC 



#-1 

3#ERRVEC 
a#PURV£C 
a#PARVEC 
SUR 

DISPLAY 
(SP) 

PRGMAP 



put relocation factor onto the stack. 

set data for reloc subroutine. 

go move the program back to banks 0 and 1, 

source starting address. 

destination starting address. 

jump to relocated program. 

out of banks 0 and 1. 

reset the stack pointer. 

:push ro on stack 

set up pointer to relative address table. 

reset addresses to unrelccated values, 
check for terminators, 
br over terminators, 
check for end of table indicator, 
br if more addresses in table. 
:pop stack into ro 
; adjust error vector. 
; adjust pouer fail vector. 
: adjust parity error vector. 
: Adjust softuare suitch register, 
sadjust softuare display register. 

: adjust RETURN ADDRESS. 

: RESET RELOCATION FACTOR. 

iSET PROGRAM MAP TO POINT TO BANKS 0 AND 1 

;RETURN. 



* THIS SUBROUTINE MOVES THE LOADER AREA BACK TO THE "TOP" OF MEMORY FROM 

* UHENCE IT CAME. THE LOADER AREA IS SAVED AT THE END OF THE 8K OF 

* PROGRAM CODE UHEN THE PROGRAM IS INITIALLY RUN. 
*************************************************************** 



fttSLDR: MOV 
BNE 
JSR 

: FATAL ERROR 
.WORD 
HAuT 



LMAD. 

1$ 

PC. 



RO 

$ERROR 



CHECK IF THE LOADERS UERE SAVED. 

BR IF LOADER AREA UAS SAVED. 

*** ERROR *** (GO TYPE A MESSAGE) 



: ERROR TYPE CODE. 
:FATAL EftROR!!! CAN'T RESTORE LOADER AREA IF IT UASN'T SAVED. 
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SEQ 0081 



3191 

319a 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 



015502 
015506 
015510 
015514 
0 15520 
015524 
015526 
015530 
015532 
015536 
015542 
015544 
015550 



015552 
015556 
015560 
015564 
015566 
015574 
015576 
015600 
015602 
015610 
015612 
015616 
015620 
015622 
015624 
015630 



005767 
001402 
005037 
012701 
012702 
014140 
005302 
001375 
005067 
005767 
001402 
005237 
000207 



005767 
001024 
012700 
010001 
012737 
011020 
000776 
022626 
012737 
010046 
012702 
014041 
005302 
001375 
012667 
000207 



163030 

177572 
040000 
003000 



163752 
162774 

177572 



163732 
040000 

015600 000004 

023430 000004 
003000 

163660 



1$: 

2$: 
3$: 



4$; 



TST 
BEQ 
CLR 
MOV 
MOV 
MOV 
DEC 
BNE 
CLR 
TST 
BEQ 
INC 
RTS 



:* ROUTINE 
SAVLDR: TST 
BNE 
MOV 
MOV 
MOV 
MOV 
BR 
CMP 
MOV 
MOV 
MOV 
MOV 
DEC 
BNE 
MOV 
RTS 



1$; 
2$: 



3$; 



4$; 



MMAVA 
2i 

9«SR0 

*40000, Rl 
#1536.. R2 
(Rl). -CRO) 
R2 
3$ 

LMAD 

MMAVA 

4$ 

3#SR0 
PC 

TO SAVE THE LOADERS 
LMAO 
4$ 

*40000. RO 
RO, Rl 
*2J. a#ERRVEC 
(ROi. (R0)+ 
1$ 

(SP)*. (SP)* 

#ERRTftP,a#ERRVEC 

RO. -(SP) 

*1536., R2 

-(RO). -CRD 

R2 

3$ 

(SP)+. LMAD 
PC 



CHECK FOR MEM MGMT. 
SKIP IF NO MEM MGMT. 
DISABLE MEM MGMT. 

GET END OF 8K. ASSUME PROG NOT RELOCATED. 

GET COUNTER. 

MOVE THE LOADER AREA. 

COUNT HOW LONG THE AREA IS. 

BR IF NOT MORE TO MOVE. 

CLEAR MONITOR SAVED FLAG 

CHECK FOR MEM MGMT. 

BR IF NO MEM MGMT. 

ENABLE MEM MGMT. 

RETURN. 

AT THE END O"^ 8K. 

CHECK IF LOAUERS HAVE BEEN SAVED ALREADY, 

BRANCH IF ALREADY SAVED 

GET END OF 8K 

GET END OF 8K 

SET UP TIMEOUT VECTOR 

SEARCH FOR END OF MEMORY 

KEEP SEARCHING 

RESTORE STACK POINTER 

: RESET TIMEOUT VECTOR. 

SAVE LAST MEMORY ADDRESS (CONTIGUOUS) 

SET UP WORD COUNTER 

SAVE THE LOADERS 

COUNT THE WORDS 

BRANCH IF MORE WORDS 

SAVE LAST MEMORY ADDRESS 

RETURN 
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SEQ 0082 



3223 
3224 
3225 
3226 
3227 
3228 

3229 015632 

3230 015636 
015642 

3231 015644 
015646 

3232 015650 

3233 015654 

3234 015656 

3235 015660 

3236 015662 

3237 015664 

015670 

3238 015672 

3239 015674 

3240 015676 

3241 015700 

3242 015702 

3243 015704 
015710 

3244 015712 
015712 
015716 
015722 

3245 015724 

3246 015730 

3247 015732 
015732 
015734 

3248 015736 
3249 

3250 
3251 
3252 
3253 

3254 015740 

3255 015744 

3256 015746 

3257 015754 

3258 015756 

3259 015762 

3260 015764 

3261 015772 

3262 015774 

3263 015002 
3264 

3265 016004 

3266 016012 

3267 016016 



011667 
004567 
024643 

010146 
010346 
016703 
005733 
100415 
005713 
001374 
004767 

000024 
000417 
005713 
001415 
005733 
100374 
004567 
024734 



004767 
004767 
000025 
004767 
000761 

012603 
012601 
000002 



005767 
001434 
032777 
001030 
005767 
001410 
032777 
001004 
026727 
103415 

016737 
005037 
010346 



163254 
004110 



164150 



002154 



004042 



001010 
002122 

000262 



.SBTTL PARITY MEMORY TRAP SERVICE AND SUBROUTINES. 

* PARITY MEMORY UNEXPECTED ERROR TRAP SERVICE ROUTINE. 

* FIND OUT WHICH REGISTER DETECTED THE ERROR. 

* THEN SCAN MEMORY TO SEE IF PARITY ERROR STILL SET AND REPORT LOCATION. 
*************************************************************** 



MOV 
JSR 
.UORD 



(SP). 
UN^XPT 



$BDADR 

mm 



MOV 
MOV 
MOV 

1$: TST 
SMI 
TST 
BNE 
JSR 

;***ERROR*** 

UORD 



Rl.-CSP) 
R3.-CSP) 
.M^RX, R3 
S(R3)* 
3$ 

(R3) 
1$ 
PC. 



$ERROR 



2$: 



3$: 

30070$: 



4$; 



BR 
TST 
BEQ 
TST 
BPL 
JSR 
.UORD 



JSR 

JSR 

.UORD 

JSR 

BR 

MOV 
MOV 
RTI 



NO REGISTER INDICATED ERROR 
24 
4$ 

(R3) 
4$ 

a(R3)t 
2$ 

R5. $PRINT 
MTOE 



GET PC OF INSTRUCTION UHICH CAUSED ERROR. 
GO PRINT OUT THE FOLLOUING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"UNEXPECTED MEMORY PARITY TRAP." 
;PUSH Rl ON STACK 
:PUSH R3 ON STACK 
GET POINTER TO PARITY REGISTERS. 
CHECK THE PARITY REG FOR AN ERROR FLAG. 
BR IF THIS REGISTER SHOWS THE ERROR. 
CHECK FOR TABLE TERMINATOR. 
BR IF MORE REGISTERS. 
*** ERROR *** (GO TYPE A MESSAGE) 



PC. 

PC. 

25 

PC. 

2$ 



SPRNTQ 
$ERROR 

PSCAN 



SP)*.R3 
SP)*.R1 



165426 

000100 163154 
162550 

000040 163136 
163762 001000 



164022 000114 
000116 



ftOUTINE TO ENABLE PARITY ERROR 
THIS ROUTINE IS MEANT TO CATCH 



mAmf 



SETAE: 



TST 
BEQ 
BIT 
BNE 
TST 
BEQ 
BIT 
BNE 
CMP 
BLO 

MOV 
CLR 
MOV 



MPRX 
MAMF2 
#SW6. 
MAMF2 
RELOCF 
SETAE 
#SU5. 
SETAF 
FSTADR, 
MAMF2 



SSUR 



3SUR 
#1000 



ERROR TYPE CODE. 
EXIT 

CHECK FOR TABLE TERMINATOR. 
BR IF NO MORE PARITY REGISTERS. 
CHECK THE PARITY REG FOR AN ERROR FLAG. 
BR IF NO ERROR FLAG. 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"MORE THAN ONE ERROR FOUND." 

SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 
GO SCAN MEMORY FOR BAD PARITY. 
GO LOOK FOR MORE ERRORS. 

:POP STACK INTO R3 
:POP STACK INTO Rl 
ftETURN. 

************* 

ACTION ON MA/MF PARITY MEMORIES 
UNEXPECTEDS 

********************************* 

CHECK IF ANY PARITY REGISTERS EXIST. 

EXIT IF NO PARITY REGISTERS. 

CHECK FOR INHIBIT PARITY ERROR DETECTION. 

EXIT IF NO PARITY ERROR DETECTION. 

CHECK IF PROGRAM RELOCATED OUT OF BANK 0. 

BR IF PROG IN BANK 0. 

CHECK IF VECTORS PROTECTED. 

BR IF VECTOR AREA PROTECTED. 

CHECK FOR STARTING ADDRESS ABOVE THE VECTORS. 

E<IT IF VECTORS EXPOSED TO TESTING. 



.PESRV, a#PARVEC :SET PARITY ERROR TRAP VECTOR 
a*PARVfC*2 ; PRIORITY LEVEL 0 ON TRAP 
R3.-(S.3) ;; PUSH R3 ON STACK 
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SEQ 0083 



^2b8 016020 

3269 016024 

3270 016030 

3271 016032 
7272 016034 
3273 016036 
3274 

3275 
3276 
3277 

3278 016040 

3279 016040 

3280 016044 

3281 016046 

3282 016054 

3283 016056 

3284 016060 

3285 016064 

3286 016066 

3287 016070 

3288 016076 

3289 016100 
016104 
016110 

3290 016112 

3291 016114 

3292 016120 
016120 
016124 
016130 

3293 016132 

3294 016136 

3295 016140 

3296 016142 

3297 016144 
3298 

3299 
3300 
3301 
3302 
3303 
3304 
3305 

3306 016146 
016146 
016150 
016152 

3307 016154 

3308 016160 

3309 016164 

3310 016166 

3311 016170 

3312 016172 

3313 016174 

3314 016176 

3315 016200 

3316 016202 



0167C3 
052733 
005713 
001374 
012603 
000207 



005767 
001437 
032777 
001033 
010346 
016703 
005733 
100023 
032773 
001410 
004767 
004767 
000026 
000411 
004767 

004767 
004767 
000027 
004767 
005713 
001351 
012603 
00020? 



010046 
010146 
010446 
012700 
016701 
010304 
005724 
032124 
001003 
005300 
001374 
005725 



164000 
000001 



165326 

000100 163054 
163740 

000001 177776 

000622 
001734 



000072 

000602 
001714 

000054 



000020 
163632 



MOV 

MAMFl: BIS 

TST 
BNE 
MOV 

MAMF2: RTS 



.MPRX. 
#AE. 
(R35 
MAMFl 
(SP)*.R3 
PC 



R3 :GET PARITY REGISTER TABLE POINTER. 

8(R3)* ;SET ACTION ENABLE BIT IN PARITY REG 
CHECK FOR END OF TABLE. 
BR IF MORE PARITY REGISTERS. 
:P0P STACK INTO R3 
ftETURN. 



:* SUBROUTINE TO CHECK PARITY 
ChGG2 



*********************************** 

REGISTERS FOR ERRORS THAT DIDN'T TRAP. 



CKPMER: 



1$: 



30071$: 



2$: 

30072$ ; 



3$: 



4$: 



TST 
BEQ 
BIT 
BNE 
MOV 
MOV 
TST 
BPL 
BIT 
BEQ 
JSR 
JSR 
.UORD 
BR 
JSR 

JSR 

JSR 

.WORD 

JSR 

TST 

BNE 

MOV 

RTS 



MPRX 
4$ 

«SU6 , SSUR 
4$ 

R3.-(SP) 
.MPRX. R3 
a(R3)+ 
3$ 

#8IT0, a-2(R3) 
2$ 



PC. 
PC. 
26 
3$ 
PC. 

PC. 

PC. 

27 

PC. 

(Rt) 

1$ 

(SP)^ 
PC 



SPRNTQ 
$ERROR 



PSCAN 

SPRNTQ 
$ERR0R 

PSCAN 



,R3 



CHECK IF ANY PARITY REGISTERS EXIST. 

BR IF NO PARITY REGISTERS. 

CHECK FOR INHIBIT PARITY ERROR CHECKING. 

BR IF PARITY ERROR CHECKING INHIBITED. 

:PUSH R3 ON STACK 

GET PARITY REG TABLE POINTER. 

CHECK THE PARITY REG FOR AN ERROR FLAG. 

BR IF NO ERROR 

CHECK IF A TRAP SHOULD HAVE OCCURRED. 
BR IF NO ACTION ENABLE. CHGG2 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GO SCAN ALL MEMORY FOR PARITY ERRORS. 

SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GO SCAN ALL MEMORY FOR PARITY ERRORS. 

CHECK FOR TABLE TERMINATOR. 

BR IF MORE. 

iPOP STACK INTO R3 

RETURN. 



* SUBROUTINE TO VERIFY THAT THE PARITY CSR DOES CONTROL THE BANK 

* UNDER TEST. MATCH THE BANK UNDER TEST WITH THE PARIT" MAP TABLE. 

* RETURN IF MEM BANK HAS BEEN MAPPED IN PARITY MAP TABLE. 

* RETURN+2 IF ERROR, MEM BANK HAS NOT BEEN MAPPED. 



PARMAT : 



1$; 



2$; 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TST 
BIT 
BNE 
DEC 
BNE 
TST 



RO.-CSP) 

Rl.-(SP) 

R4.-(SP) 

*26.R0 

.BitPT.Rl 

R3,R4 

(R4). 

(R1)+.(R4)+ 

2$ 

RO 

1* 

(R5)+ 



:PUSH RO ON STACK 

iPUSH Rl ON STACK 

:PUSH R4 ON STACK 

dOUNT OF PARITY MAP TABLE 

MEM BANK UNDER TEST POINTER 

STORE PARITY MAP TABLE 

MOVE PAST CSR ADDRESS TO MAP TABLE 

CHECK FOR TABLE MATCH 

BR IF MATCH MADE IN TABLES 

DO NEXT WORD IN TABLE 

BR TO NEXT WORD IN TABLE 

NO MATCH MADE. RETURN *2 
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SEQ 0084 



016202 
016204 
016^06 

3317 016210 

5318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

332<» 

3330 

3331 

3332 

3333 016212 
016212 
016214 
016216 
016220 
016222 

3334 016224 
016230 

3335 016232 

3336 016236 
016242 

3337 016246 

3338 016254 
5339 016260 

3340 016262 

3341 016264 

3342 016270 

3343 016274 

3344 016300 

3345 016302 
016306 

3346 016312 

3347 016316 

3348 016324 
3349 

3350 016330 

3351 016332 

3352 016334 

3353 016340 
3354 

3355 016342 

3356 016346 
3357 

3358 016352 

3359 016354 
33t)0 016356 
3361 016360 



012604 
012601 
012600 
000205 



MOV 
MOV 
MOV 
RTS 



(SP)*,R4 
R5 



RO 



POP STACK INTO R4 
POP STACK INTO Rl 
POP STACK INTO RO 



010046 
010146 
010246 
010346 
010446 

004567 003522 
025000 



004767 
013746 
013746 
012737 
005037 
005004 
005002 
012700 
016701 
005767 
001413 
013746 
013746 
005037 
012737 
012702 

030011 
001003 
062702 
000475 

111267 
016703 

005733 
100024 
005704 
001003 



AFTER A PARITY ERROR IS ENCOUNTERED THIS SUBROUTINE IS USED 
TO SCAN ALL PARITY MEMORY PER THE PMEMAP TABLE LOOKING FOR BYTE LOCATIONS 
CAUSING THE PARITY ERROR. UPON FINDING THE LOCATION(S) A MESSAGE 
WILL BE TYPED AND THE LOCATION WILL BE REWRITTEN IN ORDER TO RESTORE GOOD PARITY. 
STORAGE USED: 

RO = BANK POINTER 
Rl = PARITY CSR TABLE POINTER CMPRX) 
R2 = ADDRESS POINTER 
R3 = PMEMAP TABLE ENTRY 
R4 = ERROR DETECT FLAG 
TEMP = TEMPORARY STORAGE 

(i§CAN: 



000434 
000114 
000116 

000116 000114 
000116 



000001 
163520 
162236 

172344 
172346 
172344 

000200 172346 
040000 



040000 



163422 
163452 



1$: 

2$: 
3$: 



MOV RO.-(SP) 

MOV Rl.-(SP) 

MOV R2.-(SP) 

MOV R3,-iSP) 

MOV R4.-(SP) 

JSR R5, JPRINT 

.WORD SCAnM 

JSR PC.CLRPAR 

MOV a#ll4.-(SP) 

MOV 8#116,-(SP) 

MOV #116,3*114 

CLR S*116 

CLR R4 

CLR R2 

MOV 56IT0.ro 

MOV .pmemAp.ri 

TST MMAVA 

BEQ 1$ 

MOV a#KIPAR2.-(SP) 

MOV a#KIPAR3,-(SP) 

CLR a#KIPAR2 

MOV *200,8#KIPAR3 

MOV #40000, R2 

BIT RO.CRl) 

BNE 2$ 

ADD #40000, R2 

BR 10$ 

MOVB (R2).TEMP 

MOV .MPRX,R3 

TST a(R3)+ 

BPL 5$ 

■^ST R4 

BNE 4$ 



;PUSH RO ON STACK 
;PUSH Rl ON STACK 
:PUSH R2 ON STACK 
;PUSH R3 ON STACK 
iPUSH R4 ON STACK 

GO PRINT OUT THE FOLLOUING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"SCANNING MEMORY FOR BAD PARITY" 
GO INITIALIZE PARITY CSR'S 
:PUSH a#114 ON STACK 
iPUSH 8#116 ON STACK 
SET UP PARITY VECTOR TO 
HALT IF ANOTHER PARITY ERROR OCCURS 
INITIALIZE ERROR DETECT FLAG 
INITIALIZE ADDRESS POINTER 
INITIALIZE BANK POINTER 
POINT TO PMEMAP TABLE 
IF MEMORY MANAGEMENT NOT AVAILABLE 
THEN BRANCH 

;;PUSH a#KIPAR2 ON STACK 
iiPUSH a#KIPAR3 ON STACK 
INITIALIZE PAR2 TO 0 
INITIALIZE PAR3 

INITIALIZE ADDRESS POINTER TO MAP THRU PAR2 

IF 8K BANK DOES EXIST 
THEN BRANCH 

ELSE UPDATE ADDRESS TO NEXT 8K BANK 
AND BRANCH TO SEE IF SHOULD CONTINUE TESTING 

;READ THE BYTE LOCATION 
;POINT TO PARITY CSR TABLE 

IF NO ERROR FLAG SET IN CSR 
THEN BRANCH 

ELSE IF NOT FIRST ERROR 
THEN BRANCH 
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SEQ 0085 



3362 016362 

3363 016366 
3364 

3365 016370 
016370 
016374 
016400 

3366 016402 
5367 016404 

3368 016406 

3369 016410 
3570 016412 

3371 016414 
016420 

3372 016422 
3373 

3374 016426 

3375 016430 

3376 016432 

3377 016434 

3378 016440 

3379 016442 

3380 016446 

3381 016450 

3382 016454 

3383 016456 
3384 

3385 016460 

3386 016464 

3387 016466 
3388 

3389 016470 

3390 016474 

3391 016476 

3392 016502 

3393 016504 

3394 016512 

3395 016514 
3396 

3397 016516 

3398 016524 
3399 

3400 016526 

3401 016532 
3402 

3403 016534 

3404 016536 

3405 016540 

3406 016544 

3407 016550 

3408 016554 

3409 016556 

3410 016560 
3411 

3412 016564 

3413 016570 



005367 
005204 



004767 
004767 
000030 
111212 
005053 
105712 
005733 
001405 
004567 
025042 

005073 

005713 
001350 
005202 
005767 
001013 
005767 
001404 
022702 
001467 
000423 

022702 
001463 
000417 

022702 
001014 
005767 
100405 
022737 
001444 
000404 

022737 
001437 

032702 
001303 

006300 
001012 
062701 
016700 
062700 
020001 
001422 
012700 

005767 
001004 



162514 



000332 
001444 



037777 



000002 
163244 
000040 



000001 
161746 



4$: 

30073$: 



5$; 



003332 
177776 

162076 
163326 
170000 

160000 

060000 
162034 

007600 172346 



177600 172346 8$; 



6$: 



7$; 



9$: 



10$; 



11$: 



DEC 
INC 



JSR 

JSR 

.UORD 

MOVB 

CLR 

TSTB 

TST 

BEQ 

JSR 

.UORD 

CLR 

TST 
BNE 
INC 
TST 
BNE 
TST 
BEQ 
CMP 
BEQ 
BR 

CMP 
BEQ 
BR 

CMP 
BNE 
TST 
BMI 
CMP 
BEQ 
BR 

CMP 
BEQ 

BIT 
BNE 

ASL 
BNE 
ADD 
MOV 
ADO 
CMP 
BEQ 
MOV 

TST 
BNE 



$ERTTL ! ELSE ADJUST ERROR COUNT 

R4 : AND SET ERROR DETECT FLAG 



PC. SPRNTQ :SET UP VALUES FOR ERROR PRINTING. 

PC. $ERROR :*** ERROR *** (GO TYPE A MESSAGE) 

30 J ERROR TYPE CODE. 

(R2).(R2) :REWRITE LOCATION TO CLEAR BAD PARITY 

a-(Ri) jCLEAR ERROR FLAG IN PARITY CSR 

(R2) :REREAD LOCATION ^0 SEE IF ERROR CLEARED 

a(R3)* ;IF ERROR CLEARED 

5$ ; THEN BRANCH 

R5. $PRINT :G0 PRINT OUT THE FOLLOWING MESSAGE. 

PEUNC : ADDRESS OF MEbCOGE TO BE TYPED 
{"PARITY ERROR WILL NOT CLEAR" 

a-2CR3) ; CLEAR PARITY CSR 

IF NOT DONE WITH TABLE 
THEN TRY NEXT CSR FOR ERROR 
ELSE UPDATE ADDRESS POINTER 
IF MEMORY MANAGEMENT AVAILABLE 
THEN BRANCH 

ELSE IF NOT 30K SYSTEM 
THEN BRANCH 
ELSE IF 30K I/O PAGE 
THEN ALL DONE CHECKING MEMORY 
ELSE TRY SOMEMORE 



CR3) 
3$ 
R2 

MMAVA 
7$ 

FLG30K 
6$ 

#170000, R2 
14$ 
9$ 

*1 60000, R2 
14$ 
9$ 

#60000. R2 
9$ 

MMAVA 
8$ 

#7600,a#KIPAR3 
13$ 
9$ 

#177600, 3#KIPftR3 
13$ I 

#MASK8K,R2 

2$ 

RO 
11$ 
#2.R1 
.PMEMAP.RO 
#40.R0 
RO.Al 
13 i 

#BITO.RO 

MMAVA 
12$ 



IF 28K I/O PAGE 
THEN ALL DONE CHECKING MEMORY 
ELSE TRY SOMEMORE 

IF NOT POSSIBLY THE I/O PAGE 
THEN BRANCH AND TRY SOMEMORE 
ELSE IF 22 BIT ADDRESSING AVAILABLE 
THEN BRANCH 
ELSE IF 128K I/O PAGE 
THEN ALL DONE 
ELSE TRY SOMEMORE 

:IF 2M I/O PAGE 
THEN ALL DONE CHECKING 

;IF NOT DONE WITH THIS 8K BANK 
; THEN TRY ANOTHER ADDRESS 

IF NOT DONE WITH 128K BANK 
THEN BRANCH 

ELSE POINT TO NEXT PMEMAP ENTRY 
START OF TABLE 
END OF TABLE 
IF DONE WITH TABLE 
THEN ALL DONE 
ELSE REINIT BANK POINTER 

;IF KT AVAILABLE 
: THEN BRANCH 
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SEQ 0086 



3414 016572 

3415 016576 

3416 016600 
3417 

3418 016602 

3419 016610 

3420 016616 

3421 016622 
3422 

3423 016624 
016624 
016630 

3424 

3425 016634 

3426 016636 

3427 016640 
016644 

3428 

3429 016646 
016646 
016652 
016656 
016660 
016662 
016664 
016666 

3430 

3431 016670 

3432 

3433 

3434 

3435 

3436 

3437 016672 
016672 

3438 016674 

3439 016700 

3440 016702 

3441 016704 

3442 016706 

3443 016710 
016710 

3444 016712 
3445 

3446 
3447 
3448 
3449 
3450 
3451 

3452 016714 

3453 016720 

3454 016724 
3455 

3456 016726 

3457 016732 

3458 016736 



032700 
001016 
000653 

062737 
062737 
012702 
000642 



012637 
012637 

005704 
001003 
004567 
0242C4 



012637 
012637 
012604 
012603 
012602 
012601 
012600 

000207 



010346 
016703 
005713 
001402 
005033 
000774 

012603 
000207 



010267 
005067 
000435 

014367 
013367 
016767 



000020 



000400 172344 
000400 172346 
040000 



172346 
172344 



003106 



000116 
000114 



163124 



12$: 

13$: 
14$: 

15$: 



16$: 



BIT 
6NE 
BR 

ADD 
ADD 
MOV 
BR 



MOV 
MOV 

TST 
BNE 
JSR 
.UORD 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

RTS 



#BIT4.R0 

14$ 

1$ 

*400.a#KIPAR2 
#400,a*KIPAR3 
*40060.R2 
1$ 



;sP)*.a#KiPAR; 

'SP)*.a*KIPAR2 



R4 
15$ 

NO^ES 



$PRINT 



ELSE IF AT 32K LIMIT 
THEN ALL DONE CHECKING 
ELSE TRY SOMEMORE 

UPDATE PARS TO MAP TO NEXT 

8K BANK 
REINIT ADDRESS 
AND TRY SOMEMORE 



;:POP STACK INTO a*KIPAR3 
;jPOP STACK INTO a#KIPAR2 

IF ERROR FOUND 
THEN BRANCH 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 



.a#ii6 


;:POP STACK INTO 3*116 
;;POP STACK INTO 3*114 


.a«ii4 


.R4 


;;POP STACK INTO R4 


.R3 


:;POP STACK INTO R3 


.R2 


;:POP STACK INTO R2 


.Rl 


:;POP STACK INTO Rl 


.RO 


;;POP STACK INTO RO 



PC 



; RETURN 



; ROUTINE TO CLEAR ALL PARITY REGISTERS PRESENT 
tLRPAR: 



1$; 



2$: 



MOV 
MOV 
TST 
BEQ 
CLR 
BR 

MOV 
RTS 



R3.-(SP) 
.MPRX, R3 

(R3) 
2$ 

a(R3)> 
1$ 

(SP)+.R3 
PC 



:PUSH R3 ON STACK 
GET PARITY REGISTER TABLE POINTER. 
CHECK FOR THE TABLE TERMINATOR. 
BR IF DONE ALL PARITY REGISTERS. 
CLEAR THE PARITY REGISTER. 
BR FOR MORE 

;;POP STACK INTO R3 
;ftETURN. 



162170 
162170 



162216 
162214 

163026 162152 



SBTTL SUBROUTINES TO SET UP DATA FOR ERROR PRINTOUT ROUTINE. 

* THESE ROUTINES ARE USED TO TRANSFER DATA TO COMMON TAG AREA (.$CMTAG) 

* FOR ERROR PRINTOUT BY .$ERROR 6 .$ERRTYP ROUTINES FROM **SYSMAC**. 

SPRNT: MOV R2, $GDAOR :SAVE THE ADDRESS UNDER TEST. 
CLR $GODAT ; SHOULD BE DATA IS "0". 

BR SPRNTB 



SPRNTQ: MOV -(R3). $TMP0 
MOV a(R3)t. $TMP1 

MOV temp.$5ddat 



;GET THE PARITY REGISTER ADDRESS. 
;GET THE CONTENTS OF THE PARITY REG. 



J7 
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SEQ 0087 



3459 016744 

3460 016750 
3461 

3462 016752 

3463 016756 

3464 016762 
3465 

3466 016764 

3467 016770 

3468 016774 
3469 

3470 016776 

3471 017002 

3472 017006 

3473 017014 

3474 017020 

3475 017024 
3476 

3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 

3495 017026 

3496 017032 

3497 017040 

3498 017044 

3499 017046 

3500 017050 

3501 017052 

3502 017056 

3503 017060 
017064 

3504 017066 
3505 

3506 017072 

3507 017076 
017100 
017102 
017104 

3508 017106 
35D9 017112 
3510 017116 



010267 
000425 

011367 
010267 
000414 

010267 
005367 
000407 

010367 
010267 
162767 
010067 
010167 
000207 



010037 
012737 
060037 
005710 
OOlOn 
005720 
023700 
001372 
004567 
024430 

000167 

013700 
010146 
010246 
010346 
010446 
005067 
005067 
005067 



162140 



162172 
162126 



162120 
162114 



162146 
162102 

000002 162074 

162074 

162072 



MOV 
BR 

SPRNTP: MjV 
SPRNTO: MOV 
BR 

SPRNTl: MOV 
DEC 
BR 

SPRNT3: MOV 
SPRNT2: MOV 
SUB 

SPRNTA: MOV 
SPRNTB: MOV 
SPREND: RTS 



R2.$GDADR 
SPREND 

(R3). $TMPO 
R2, JGOADR 
SPRNTA 



R2 

$g6adr 

SPRNTA 

R3. 

#2. 
RO, 
Rl. 
PC 



$GDADR 



$TMPO 

$G0A0R 

$GDAOR 

$GDDAT 

$BDDAT 



GET THE PARITY REGISTER ADDRESS. 
GET THE MEMORY ADDRESS BEING TESTED 
BR TO COMMON SECTION. 

GET THE MEMORY ADDRESS BEING TESTED 
ADJI'ST IT FOR PRINTOUT. 
BR TO COMMON SECTION. 

GET THE DATA IN R3. 

GET THE MEMORY ADDRESS BEING TESTED 

ADJUST IT FOR PRINTOUT. 

GET WHAT THE DATA SHOULD BE 

GET UHAT THE DATA WAS 

RETURN TO ENTER ERROR ROUTINES 



i THIS ROUTINE WILL TYPE OUT A MAP OF MEMORY BANKS. 
^ UPON ENTERING THIS ROUTINE RO WILL CONTAIN THE ADDRESS 
. OF THE TABLE TO BE TYPED OUT. THE ROUTINE REQUIRES THAT THE 
i TABLE CONTAIN 16 DECIMAL WORDS, 
k STORAGE USED: 

= MAP TABLE ADDRESS 
= BANK POINTER 

= CONSECUTIIVE ZERO BANK FLAG 



RO 
Rl 
R2 
R3 
R4 

LMEMLO 
LMEMHI 
BNKTAB 
ENDBKT 
FLG30K 



HIGH MEMORY ADR 
HIGH MEMORY ADR 
LOW MEMORY ADR . . 
LOW MEMORY ADR . 
ADDRESS OF TABLE 
LAST ADDRESS * 2 
30K MEMORY FLAG 



LO 16 BITS 
. . HI 6 BITS 
. LO 16 BITS 
. HI 6 BITS 
TO BE PROCESSED 
OF TABLE TO BE PROCESSED 



017526 


tYPMAP: MOV 


000040 017530 




MOV 


017530 




ADD 




1$: 


TST 






BNE 






TST 


017530 




CMP 






BNE 


002666 




JSR 






.WORD 


0004P6 




JMP 


017526 


2J: 


MOV 






MOV 






MOV 






MOV 






MOV 


000410 




CLR 


000406 




CLR 


162646 




CLR 



RO.a*BNKTAB 

#40.8«EN0BKT 

RO.a*ENDBKT 

(R6) 

2$ 

(RO)* 

9«ENDBKT,R0 
1$ 



R5. 
NOMEM 

13 J 



$PRINT 



S«BNKTAB,RO 

R1,-(SP) 

R2.-(SP) 

R3.-(SP) 

R4.-(SP) 

LMEMLO 

LMEMHI 

TEMP 



SAVE ADDRESS OF TABLE 
LOAD END BANK TABLE WITH 40 
GET LAST ADR * 2 INTO ENDBKT 
ANY MEMORY IN THIS TABLE ENTRY 
THEN 60 PRINT OUT LOCATIONS 
ELSE POINT TO NEXT TABLE ENTRY 
IF NOT END OF TABLE 

THEN TRY AGAIN 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO Bt TYPED 
"NO MEMORY FOUND." 
EXIT 

RESTORE MAP TABLE ADDRESS 

PUSH Rl ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 
.PUSH R4 ON STACK 
iNIT LOW MEM ADR ... LO 16 BITS 
INIT LOW MEM ADR ... HI 6 BITS 
INIT LAST BANK IN MAP FLAG 



/ 
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3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 



017122 
017126 
017130 



012703 
010304 
012702 



017134 012701 



017140 
017142 
01^44 
017150 
017152 
017154 

017156 
017160 
017162 
017164 
017170 
017172 
017176 
017200 
017202 
017206 
017210 
017214 

017216 
017222 
CI 7224 

017226 
017232 



030110 
001405 
062703 
005504 
005002 
000541 

005702 
001123 
005202 
022"'03 
001023 
005767 
100413 
001006 
005767 
001412 
162703 
000411 

022704 
001006 
000403 

022704 
001002 



017234 162703 



3547 

3548 
3549 
3550 
3551 
3552 
3553 
3554 



017240 
017240 
01 /242 
017244 
017250 
017254 
017260 
017262 
017264 
017266 
017270 
017274 
017300 
017304 



010346 
010446 
016746 
016746 
004567 
024005 
006303 
006104 
006003 
006367 
006167 
006067 
016746 



177777 
000001 
000001 

040000 



177777 
161340 

162566 
010000 

000003 

000077 
020000 



000252 
000250 
002472 



000226 
000224 
000216 
000214 



017310 106746 

017312 105066 000001 

017316 004767 003656 
017322 003 



3$; 
4$: 



5$; 



6$: 

7$; 

8$: 
9$; 



MOV 
MOV 
MOV 

MOV 

BIT 
BEQ 
ADD 
ADC 
CLR 
BR 

TST 
6NE 
INC 
CMP 
BNE 
TS' 
BMI 
BNE 
TST 
BEQ 
SUB 
BR 

CMP 
BNE 
BR 

CMP 
BNE 

SUB 



MOV 
MOV 
MOV 
MOV 
JSR 
.UORD 
ASL 
ROL 
ROR 
ASL 
ROL 
ROR 
MOV 



*-l.R3 

R3.ft4 

#1.R2 

ffilTO.Rl 

R1,(R0) 
5$ 

#40000, R3 

R4 

R2 

11$ 

R2 

10$ 

R2 

#177777. R3 
9$ 

MMAVA 

7$ 

6$ 

FLG30K 
8$ 

#10000, R3 
9$ 

#3,R4 

9$ 

8$ 

#77. R4 
9$ 

#20000. R3 



R3.-(SP) 
R4.-(SP) 
LMEMLO.-(SP 
LMEMHI,-(SP 



$PRINT 



fr6m 

R3 
R4 
R3 

LMEMLO 
LMEMHI 
LMEMLO 
LMEMHI. -(SP) 
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INIT HIGH HEM ADR ... LO 16 BITS 
INIT HIGH MEM ADR ... HI 6 BITS 
INIT CONSECUTIVE ZERO BANK FLAG 

:INIT BANK POINTER 

IF THIS 8K BANK IS NOT PRESENT 
THEN GO PRINTOUT MAP 

ELSE UPDATE HIGH MEM TO TOP OF THIS BANK 

CLEAR CONSECUTIVE ZERO BANK FLAG 
GO CHECK FOR NEXT BANK 

IF CONSECUTIVE ZERO BANK 
THEN DO NOT PRINT MESSAGE 
ELSE UPDATE CONSECUTIVE ZERO BANK FLAG 
IF NOT 32K. 128K OR 2M BOUNDARY 
THEN GO I^RINT MESSAGE 
ELSE IF 22BIT ADDRESSING 
THEN GO UORK ON 22 BIT ADDRESSING 
OR GO UORK ON 18 BIT ADDRESSING 
ELSE IF NOT 30K SYSTEM 
THEN GO ADJ TO 28K BOUNDARY 
ELSE ADJ TO 30K BOUNDARY 
AND GO PRINT 

IF NOT 128K BOUNDARY 
THEN GO PRINT 

ELSE GO ADJ TO 124K BOUNDARY 

;IF NOT 2M BOUNDARY 
: THEN GO PRINT 

jADJ HIGH MEMORY TO BELOW I/O PAGE 



PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH LMEMLO ON STACK 
.PUSH LMEMHI ON STACK 
do PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
SHIFT BIT 15 INTO CARRY 

TO ALIGN WITH BITS 17-16 
14-0 

INTO CARR/ 

TO ALIGN WITH BITS 17 16 
14-0 

FOR TYPEOUT 



SEQ 0088 



;SHIFT BIT 15 
;RESTORE BITS 
;SHIFT BIT 15 
iSHIFT BIT 15 
; RESTORE BITS 
;SAVE LMEMHI . 
•TYPE ADDRESS BITS 21-15 
THE NEXT TWO INSTRUCTIONS PR6vIDE AN INTERFACE TO THE $TYPOS ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**, 



MFPS 
CLR6 

JSR 
.BYTE 



■(SP) 
KSP) 



$TYPOS 



PUT THE PROCESSOR STATUS ON 
HIGH BYTE CLEARED TO INSURE 
ON PSW RETURN. 
GO TO THE SUBROUTINE 
:TYPE 3 DIGIT(S) 



THE STACK 
KERNEL MODE 
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SEQ 0089 



017323 000 
3555 017324 016746 000172 



017330 


106746 




017332 


105066 


000001 


017336 


004767 


003636 


017342 


005 




017343 


001 




3556 017344 


004567 


002402 


017350 


024015 


3557 017352 


010446 




017354 


106746 




017356 


105066 


000001 



017362 004767 003612 

017366 003 

017367 000 
3558 017370 010346 



017372 
017374 

017400 
017404 
017405 

3559 017406 
017412 
0174ie 
0r420 

3560 017422 

3561 017426 
3562 

3563 017430 

3564 017434 

3565 017436 

3566 017442 

3567 017446 

3568 017454 
3569 

3570 017460 

3571 017462 
3572 

3573 017464 

3574 017466 

3575 017472 

3576 017474 
357? 017500 
35^8 017502 
3579 017506 



106746 
105066 

004767 
005 
001 
012667 
012667 
012604 
012603 
005767 
001030 

062703 
005504 
010367 
010467 
062767 
005567 

006301 
001226 

005720 
023700 
001220 
005760 
100003 
005267 
000623 



.BYTE 0 ;:SUPPRESS LEADING ZEROS 

MOV LMEMLO. (SP) :;SAVE LMEHLO FOR TYPEOUT 

:;TYPE ADDRESS BITS 14-0 
!* THE NEXT TUO INSTRUCTIONS PR6vIDE AN INTERFACE TO THE $TYPOS ROUTINE 
:* UIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSnAC**. 

MfPS -CSP) :PUT THE PROCESSOR STATUS ON THE STACK 

CLRB KSP) ;HIGH BYTE CLEARED TO INSURE KERNEL MODE 

;0N PSU RETURN. 
JSR PC. $TYP0S ;G0 TO THE SUBROUTINE 
•BYTE 5 ;;TYPE 5 DIGIT(S) 

.BYTE 1 jiTYPE LEADING ZEROS 

JSR R5. $PRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 
.UORD TO .-ADDRESS OF MESSAGE TO BE TYPED 

MOV R4,-(SP) :;SAVE R4 FOR TYPEOUT 

••TYPE ADDRESS BITS 21 15 
;* THE NEXT TUO INSTRUCTIONS PR6vIDE AN INTERFACE TO THE $TYPOS ROUTINE 
;* UIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 

MFPS -CSP) ;PUT THE PROCESSOR STATUS ON THE STACK 

CLRB 1(SP) ;HIGH BYTE CLEARED TO INSURE KERNEL MODE 

:0N PSU RETURN. 
JSR PC. $TYPOS ;G0 TO THE SUBROUTINE 
.BYTE 3 ;:TYPE 3 DIGIT(S) 

•BYTE 0 , ^ SUPPRESS LEADING ZEROS 

MOV R3,-(SP) :;SAVE R3 FOR TYPEOUT 

::TYPE ADDRESS BITS 14-0 
:* THE NEXT TUO INSTRUCTIONS PR6vI0E AN INTERFACE TO THE *TYPOS ROUTINE 
:* UIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



000001 
003574 



000112 
000104 



162342 



040000 

000060 
000056 

000001 000046 
000044 



017530 
177776 
162262 



10$: 



11$: 

12$: 



MFPS 
CLRB 

JSR 

.BYTE 

.BYTE 

MOV 

MOV 

MOV 

MOV 

TST 

BNE 

ADD 
ADC 
MOV 
MOV 
ADD 
ADC 

ASL 
BNE 

TST 
CMP 
SNE 
TST 
BPL 
INC 
BR 



(SP) 
KSP) 

PC. 

5 
1 

;sp)*.lmemhi 
;sp5*.lmemlo 



$TYP0S 



SP 
'SP)*. 
TEMP 
14$ 



R4 
R3 



#40000, R3 
R4 

R3.LMEML0 
R4.LMEMHI 
#1.LMEML0 
LM^MHI 

Rl 
4$ 

(RO)* 

9#EN0BKT,R0 
3$ 

-2(R0) 
14$ 
TEMP 
5$ 



PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSU RETURN. 
GO TO THE SUBROUTINE 
TYPE 5 DIGIT(S) 
TYPE LEADING ZEROS 
POP STACK INTO LMEMHI 
POP STACK INTO LMEMLO 
POP STACK INTO R4 
POP STACK INTO R3 
HAS LAST BIT IN MAP PRINTED? 
YES. EXIT TO STACK CLEANUP 

UPGRADE TO TOP OF THIS BANK 

UPDATE LMEM TO THIS BANK 

GET TO NEU lOU ADDRESS OF NEXT BANK 



; POINT TO NEXT 8K BANK 

;BRANCH IF MORE TO TEST IN THIS MAP ENTR^ 

UPDATE POINTER TO NEXT TABLE ENTRY 
IF NOT DONE UITH TABLE 

THEN TRY AGAIN 
CHECK IF LAST BANK AVAILABLE 
IF ZERO.TYPMAP PRINT COMPLETED 
ELSE SET LAST BANK PRINT FLAG 
PRINT FOR LAST BANK 
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SEQ 0090 



3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3596 



017510 

017510 
017512 
017514 
017516 

017520 

017522 
017524 
017526 
017530 



14$: 







nuv 


\3r J* 


DA 






nuv 


f CO ^ > 


DX 


UicOUc 




nuv 


\jr J* 


D3 
. Kc 


012601 




MOV 




R1 


000207 


13$: 


RTS 


PC 




000000 


LMEMLO: 


.WORD 


0 




000000 


LMEMHI : 


.UORD 


0 




000000 


BNKTAB: 


.WORD 


0 




000000 


ENDBKT: 


.UORD 


0 





POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO Rl 



jRETURN TO CALLER 

LOU MEMORY ADR 
LOU MEMORY ADR 



LO 16 BITS 
HI_6 BITS 



ADDRESS OF TABLE TO BE PROCESSED 



017532 



017532 


106746 






017534 


105066 


000001 




017540 


004767 


001042 




017544 


010516 






017546 


032777 


040000 


161354 


017554 


00ill7 






017556 


000416 






017560 


013746 


000004 




0r564 


012737 


017604 


000004 


017572 


005737 


r7060 




017576 


012637 


000004 




017602 


000466 






017604 


022626 






017606 


012637 


000004 




017612 


000426 






017614 








017614 


032777 


000400 


161306 


017622 


001407 






017624 


017746 


161300 




01-'630 


042716 


000340 




017634 


122667 


161232 




017640 


001465 






017642 


105767 


161225 




017646 


001421 






017650 


126767 


161231 


161215 



LAST ADDRESS ♦ 2 
TO BE PROCESSED. 



0" TABLE 



1$ 



MFPS 
CLRB 

JSR 
MOV 
BIT 
BNE 



iif»#**START OF CODE FOR TH^ 



JXTSTR: BR 



MOV 
MOV 
TST 
MOV 
BR 
CMP 
MOV 
BR 



PC . *CKSWR 
R5, (SP) 
«BIT14.9SUR 
$OVER 

XOR 

6$ 



SBTTL SCOPE HANDLER ROUTINE 

♦THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT UILL INCREMENT 

*AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>) 

♦AND LOAD THE ERROR FLAG (^ERFLG) INTO DISPLAY<15:08> 

♦THE SUITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SU14=1 LOOP ON TEST 

♦SU11=1 INHIBIT ITERATIONS 

♦SU09=1 LOOP ON ERROR 

♦SU08=1 LOOP ON TEST IN SWR<4:0> 

♦CALL 

,♦ SCOPE ;;SCOPE=IOT 
iSCOPE: 

♦ THE NEXT TUO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSUR ROUTINE 

♦ UIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY ♦♦SYSMAC^^. 

PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSU RETURN. 
GO TO THE SUBROUTINE 

PUT RETURN PC ONTO STACK. SIMULATE JSR PC. 
iLOOP ON PRESENT TEST? 
::YES IF SU14=1 
t^STER«*« 
IF RUNNING ON THE "XOR" TESTER CHANGE 
THIS INSTRUCTION TO A "NOP" (NOP =240) 
SAVE THE CONTENTS OF THE ERROR VECTOR 
SET FOR TIMEOUT 
TIME OUT ON XOR? 
RESTORE THE ERROR VECTOR 
GO TO THE NEXT TEST 
CLEAR THE STACK AFTER A TIME OUT 
RESTORE iMt ERROR VECTOR 
:LOOP ON THE PRESENT TEST 
tESTERm^^* 
LOOP ON SPEC. TEST? 
BR IF NO 

SET DESIRED TEST NUM. FROM SUR 
STRIP AUAv UNDESIREO BITS 
ON THE RIGHT TEST? 
BR IF YES 

HAS AN ERROR OCCURRED? 
BR IF NO 

MAX. ERRORS FOR THIS TEST OCCURRED? 



5$ 



6$: 



**«^#END OF 



2i 



BIT 
BEQ 
MOV 
BIC 
CMPB 
BEQ 
TST6 
BEQ 
CMPB 



S*ERRVEC.-CSP) 
#5i.a*ERftVEC 
8#l)7060 
(SP)*.a*ERRVEC 

$svla6 

(SP^.(S?)* 
CSP)*,a#ERKVtL 
7$ 

CODE FOR THE 
«BIT08.SSUR 
2$ 

8SWR.-(SP) 

#$SUftMK.(SP) 

(SP)*.$tSTNM 

$OVER 

$ERFLG 

3$ 

$erkax.$erflg 



XOR 



7 
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3597 



017656 

017660 

017666 

017670 

017676 

017700 

017704 

017710 

017712 

017720 

017722 

017726 

017730 

017734 

017742 

0J7744 

017752 

0177oO 

CI 7764 

017772 

017776 

020002 

020006 

020014 

020022 

020026 

020030 



101015 

032777 

001404 

016767 

000446 

105067 

005067 

000415 

032777 

001011 

005767 

001406 

005267 

026767 

00^024 

012767 

016767 

105267 

116767 

011667 

011667 

005067 

112767 

016777 

016716 

000207 

000001 



OOlCOO 

161204 

161167 
161250 



161242 
161200 



161254 

161140 
j1220 

000001 
000052 
i:il06 
161102 
161100 
161076 
161154 
000001 
161052 
161050 



3598 



020032 106746 

020034 105066 000001 

020040 004767 000542 



020044 



161132 

161122 
161200 

161206 



161071 
161110 



SEQ 0091 



020044 


106746 






020046 


105066 


000001 




020052 


004767 


000530 




020056 


062716 


000002 




020062 


105267 


161005 




020066 


001775 






020070 


016777 


160776 


161034 


020076 


032777 


oc:ooo 


161024 



7*; 
4$; 



004000 161210 3* ; 



1$: 

$SVLAO: 



JOVER: 



6HI 3$ 

BIT «BIT09,SSUR 

BEQ 4$ 

NOV JLPERR.JLPAOR 

BR $OVER 

CLRB $ERFLG 

CLR $TIMES 

BR 1$ 

BIT #61111. aSUR 

BNE 1$ 

TST $PASS 

BEQ U 

INC $TCNT 

CMP $1IMES,JJCNT 

BGE $OVER 

MOV *1.$ICNT 

MOV $MXCNT.$ TIMES 

INCB JTSTNM 

MOVB $TSTNM,$TESTN 

MOV (SP).$LPADR 

MOV (SP).$LPERR 

CLR JESCApE 

MOVB #1.$ERMA> 

MOV $TSTNM,aDISPLAY 

MOV $LPADR,(SP) 

RTS PC 
1 



BR IF NO 

LOOP ON ERROR? 

BR IF NO 

SET LOOP ADDRESS TO LAST SCOPE 
ZERO THE ERROR FLAG 

CLEAR THE NUMBER OF ITERATIONS TO MAKE 
ESCAPE TO THE NEXT TEST 
INHIBIT ITERATIONS? 
BR IF YES 

IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
CHECK THE NUMBER OF ITERATIONS MADE 
BR IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
COUNT TEST NUMBERS 
SET TEST NUMBER IN APT MAILBOX 
SAVE SCOPE LOOP ADDRESS 
SAVE ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONE(l) ERROR ON NEXT TEST 
DISPLAY TEST NUMBER 
.FUDGE RETURN ADDRESS 
EXIT SCOPE ROUTINE BACK 



ENDINS: RTS PC :EXIT SCOPE ROUTINE BACK TO TEST, 

*MXCNT: 1 :;MAX. NUMBER OF ITERATIONS 

;* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSUR ROUTINE 
:* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **S.SMAC** 

PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSU RETURN. 
GO TO THE SUBROUTINE 



MFPS 
CLRB 



ifspj 



JSR PC. JCKSWR 
SBTTL ERROR HANDLER ROUTINE 

*THIS ROUTINE UILL INCREMENT THE ERROR FLAG AND THE ERROR COUN", 
♦SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
*AND GO TO $ERRTYP ON ERROR 

♦THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

♦SU15=1 HALT ON ERROR 

♦SU13=1 INHIBIT ERROR TYPEOUTS 

♦SU10=1 BELL ON ERROR 

♦SJ09=1 LOOP ON ERROR 

♦CALL 

IeRROR ^^^^^ ;;ERROR=EMT AND N»ERROR ITEM NUMBER 

:* THE^NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSUR ROUTINE 
:* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY ♦♦SYSMAC^^. 



7$' 



MFPS 
CLRB 

JSR 

ADD 

INCB 

BEQ 

MOV 

BIT 



-(SP) 
KSP) 

PC. 
*2 



$CKSWR 
(SP) 



JE^FLG 
7$ 

JTSTNM.aOISPLAf 
46IT10.9SWR 



PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSU RETURN. 
GO TO THE SUBROUTINE 
ADJUST POINTER PAST CODE WORD. 
SET THE ERROn Fl AG 
DON' T LET THE FLAG GO TO ZERO 
DISPLAY TEST NUMBER AND ERROR ^LAG 
BELL ON ERROR? 
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SEQ 0092 



020 
020 
020 
020 
020 
020. 
020: 
0?0 
020 



.04 
.06 
.12 
14 
20 
24 
32 
40 
46 



3599 



0^0150 
0^0154 
020160 
020162 
020162 
020170 
020172 
020200 
020204 
020205 
020206 
020210 
020214 
0^0216 



020220 
020222 

020226 
020232 
020240 
020242 
020246 
020252 
020254 
020260 
020260 
020266 
020270 
020272 
020272 



001403 
004567 
001164 
005267 
011667 
162767 
ir767 
032777 
OC1005 
004767 
00456' 
001171 

122'' '7 
001007 
116767 
004767 
000 
000 
000777 
005777 
100006 
000000 



001640 

160762 
160762 

000002 160754 
160750 160744 
020000 160762 

000120 
001572 



000001 161024 

160706 000004 
002152 



1$: 



160714 



20): 



21$: 

22$: 
2$: 



BEQ 

JSR R5. JPRINT 

-UORD iBtil 

INC $ERTTL 

MOV CSP),$ERRPC 

SUB S2,J^RRPC 

MOVB 8JfRRPC.$ITEf1B 

BIT «eiTl3.8SWR 

6NE 20$ 

JSR PC.$ERRTYP 

JSR R5, $PRINT 

.WORD $CftLF 

CHPB *APTENV.$ENV 

BNE 2$ 

nOVB $ITEMB.21$ 

JSR PC . $ATY4 

.BYTE 0 

.BYTE 0 

PR 22$ 

TST aSUR 

BPL 3$ 
HALT 



iNO - SKIP 

do PRINT CUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
: COUNT THE NUMBER OF ERRORS 
;GET ADDRESS OF ERROR INSTRUCTION 

STRIP AND SAVE THE ERROR ITEM CODE 

SKIP TYPECJT IF SET 

SKIP TYOEOUTS 
.GO TO USER ERROR ROUTINE 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 

RUNNING IN APT MODE 

NO.SKIP APT ERROR REPORT 

SEt ITEM NUMBER AS ERROR NUMBER 

REPORT FATAL ERROR TO APT 



APT ERROR LOOP 
HALT ON ERROR 
SKIP IF CONTINUE 
HALT ON ERROR! 



106746 

105066 000001 

004767 000354 

032777 001000 160670 

001402 

016''16 160632 

005767 160710 
001402 

016716 160702 

022737 012722 000042 

001001 

000000 

000207 



THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSUR ROUTINE 
UIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC** 



3$ 



4$ 



5$; 



6$: 



MFPS 
CLRB 

JSR 
BIT 
SEQ 
MOV 
TST 
BEQ 
MOV 

CMP 
BNE 
HALT 

RTS 



(SP 
1(SP 



PC. $CKSUR 

»BIT09.9SUR 

4$ 

$LPERR.(SP) 

$ESCAPt 

5$ 

$ESCAPE.CSP) 

«$EN0AD.9«42 
6$ 



PC 



PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSW RETURN. 
GO TO THE SUBROUTINE 
LOOP ON ERROR SUITCH SET? 
BR IF NO 

FUDGE RETURN FOR LOOPING 
CHECK FOR AN ESCAPE ADDRESS 
BR IF NONE 

FUDGE RETURN ADDRESS FOR ESCAPE 

ACT-11 AUTO-ACCEPT? 
BRANCH IF NO 
YES 



•SBTTL ERROR MESSAGE TYPEOUT ROUTINE 



:*THIS ROUTINE USES THE "ITEM CONTROL BYTE" ($ITEMB) TO DETERMINE WHICH 
;*ERROR^IS TO BE REPORTED. IT THEN OBTAINS. FROM THE "ERROR TABLE" ($ERRTB). 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 



020274 

020274 004567 001452 

020300 001171 

020302 010046 

020304 005000 

020306 156700 160572 



$ERRTYP: 



JSR 
.WORD 
MOV 
CLR 
BISB 



$cAlf 

RO.-(SP) 
RO 

$ITEMB.RO 



$PRINT 



;G0 PRINT OUT THE FOLLOWING MESSAGE. 
: ADDRESS OF MESSAGE TO BE TYPED 
•SAVE RO 

i PICKUP THE ITEM INDEX 
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020312 001010 

020314 016746 160566 
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SEQ 0093 



BNE 



1$ 



;IF ITEM NUMBER IS ZERO, JUST 
:TYPE THE PC QF 'HE ERROR 
;:SAVE itmC m TYPEOUT 



020320 
020322 

020326 
020332 

020350 
020352 
020354 
020356 
020360 
020364 
020370 
020372 
020376 
020400 
020404 
020406 
020412 
020414 
020420 
020422 
020426 
020430 
020432 
020434 
020436 
020442 
020444 
020450 
020452 
020454 



020456 
020460 

020464 
020470 
020472 
020474 



020476 
020500 

020504 
020510 
020512 
020520 



106746 

105066 000001 



004767 
000516 
016767 
166767 
005300 
006300 
006300 
006300 
066700 
012067 
001406 
004567 
000000 
004567 
001171 
012067 
001406 
004567 
000000 
004567 
001171 
010146 
012001 
001454 
066701 
012000 
066700 
105720 
001007 
013146 



002672 

160546 161142 
160164 161134 



161450 
000006 

001354 

001346 

000006 

001332 

001324 



160070 
160062 



;* 
;* 



1$; 



MOV $ERRPC.-(SP) 

• •ERROR ADDRESS 

THE NEXT TUG INSTRUCTIONS PR6vI0E AN INTERFACE TO THE $TYPOC ROUTINE 
UIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY ♦♦SYSMAC**. 



106746 

105066 000001 

004767 002534 
000430 
100407 
013146 



106746 

105066 000001 

004767 002236 
000420 

122760 177777 177777 
001004 



2t: 
3$: 
4$: 
5$: 

6$: 



7$: 

:* 
:* 



MFPS 
CLRB 

JSR 
BR 
MOV 
SUB 
DEC 
ASL 
ASL 
ASL 
ADD 
MOV 
BEQ 
JSR 
.UORD 
JSR 
.UORD 
MOV 
BEQ 
JSR 
.UORD 
JSR 
.UORD 
MOV 
MOV 
BEQ 
ADD 
MOV 
ADD 
TSTB 
BNE 
MOV 



ifspj 



STATUS ON THE 
TO INSURE KER 



STACK 
NEL MODE 



$TYP0C 



$VERPC 
$VERPC 



RO 



PC, 
lOi 

$ERRPC, 
RELOCF. 
RO 
RO 
RO 
RO 

.ERRTB. 

3$ 
R5. 

0 

JCftLF 
(R0)».4$ 
5$ 

R5. $PRINT 
R5. $PRINT 

jcAlf 

Rl.-(SP) 
(R6)*.R1 
9$ 



;PUT THE PROCESSOR 
;HIGH BYTE CLEARED 
;0N PSU RETURN. 
;G0 TO THE SUBROU^'INE 
;GET OUT 

;SET UP VIRTUAL PC FOR TYPEOUT. 

;MAKE VIRTUAL IF NOT ALREADY. 

;ADJUST THE INDEX SO THAT IT WILL 
; UORK FOR THE ERROR TABLE 



$PRINT 
$PRINT 



;F0RM TABLF POINTER 

: PICKUP "ERROR MESSAGE" POINTER 
iSKIP TYPEOUT IF NO POINTER 
:G0 PRINT OUT THE FOLLOUING MESSAGE. 

:"ERROR MESSAGE" POINTER GOES HERE 
:G0 PRINT OUT THE FOLLOUING MESSAGE. 
; ADDRESS OF MESSAGE TO BE TYPED 

; PICKUP "DATA HEADER" POINTER 
iSKIP TYPEOUT IF 0 
:G0 PRINT OUT THE FOLLOUING MESSAGE. 

:"DATA HEADER" POINTER GOES HERE 
J GO PRINT OUT THE FOLLOUING MESSAGE. 
{ADDRESS OF MESSAGE TO BE TYPED 
•SAVE Rl 

IpICKUP "DATA TABLE" POINTER 
:BR IF NO DATA TO BE TYPED 
{ADJUST POINTER 

:PICKUP "DATA FORMAT" POINTER 

: ADJUST Pointer. 

: CHECK THE FORMAT 
:BR IF NOT 16-BIT OCTAL 
SAVE S(R1> FOR TYPEOUT 
THE NEXT TUO INSTRUCTIONS PRfiVIDE AN INTERFACE TO THE $TYPOC ROUTINE 
UIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**, 



RELOCF. Rl 
(RO)*.ftO 
RELOC^ RO 
(RO)t 
7$ 

a(Rl)*,-(SP) 



MFPS 
CLRB 



-(SP 
ICSP 



JSR 
BR 
BMI 
MOV 



$TYPOC 



PC. 
8$ 
17$ 

a(Rl)t.-(SP) 



:PUT THE PROCESSOR STATUS ON THE STACK 
;HIGH BYTE CLEARED TO INSURE KERNEL MODE 
:0N PSU RETURN. 
;G0 TO THE SUBROUTINE 



{BRANCH IF NOT DECIMAL 
;;SAVE 8(Rl)t FOR TYPEOUT 
THE NEXT TUO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPDS ROUTINE 
UIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



17$: 



MFPS 
CLRB 

JSR 
BR 
CMPB 
BNE 



ifsp! 

PC. 

8$ 

* 1. 
18$ 



$TYPDS 
-KRO) 



PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSU RETURN. 
GO TO THE SUBROUTINE 
SKIP 

CHECK FOR 22-BIT ADDRESS FORMAT. 
BR IF NOT 22-BIT ADDRESS FORMAT. 



U6 
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SEQ 0094 



020522 013146 

020524 004767 002736 

020530 000410 
020532 

020532 005046 

020534 113116 



020536 106746 
020540 105066 000001 



18$: 



MOV S(R1)*. (SP) ;PUT THE DATA ON THE S'ACK. 

JSR PC. JTYPAD :OETERMINE THE PHYSICAL ADDRESS AND TYPE IT, 

8R oi jSKIP 



020544 
020550 
020551 
020552 
020554 
020556 
020562 
020564 

020566 
020570 
020572 
020576 
020600 
020602 



004767 002430 

003 

001 
005711 
001404 

004567 001170 

020602 

000731 

012601 
012600 

004567 001154 
001171 
000207 
040 



CLR -(SP) jCLEAR THE WORD ON THE STACK. 

M0V8 S(R1)*. (SP) :PUT THE DATA ON THE STACK. 
;* THE NEXT TWO INSTRUCTIONS PR6vIDE AN INTERFACE TO THE $TYP0S ROUTINE 
;* WIHTOUT USING A "TRAP' INSTRUCTION AS CALLED FOR BY **SYSMAC** 

MFPS -(SP) :PUT THE PROCESSOR STATUS ON THE STACK 

CLRB USP) :HIGH BYTE CLEARED TO INSURE KERNEL MODE 

;0N PSW RETURN. 
JSR PC. JTYPOS :G0 TO THE SUBROUTINE 
•BYTE 3 ;TYPE 3 DIGITS. 

.BYTE 1 sTYPE LEADING ZEROS. 

IST CRD :IS THERE ANOTHER NUMBER? 

BEQ 9$ :BR IF NO 

JSR R5, $PRINT :G0 PRINT OUT THE FOLLOWING MESSAGE. 
•WORD 11$ :ADDRESS OF MESSAGE TO BE TYPED 

BR 6$ ;LOOP 



040 



9$: 
10$; 



000 11$: 



(SP)+.R1 
(SP)+.RO 
R5. $PRIN' 
$CftLF 
PC 

/ / 



3600 



.SBTTL 



MOV 
MOV 
JSR 
.WORD 
RTS 
.ASCIZ 
.EVEN 
TTY INPUT ROUTINE 



jRESTORE Rl 

iRESTuRE RO 
;G0 PRINT OUT THE FOLLOWING MESSAGE. 
:ADDRESS OF MESSAGE TO BE TYPED 

iRETURN 
: DOUBLE SPACE 



020606 


022767 


000176 


160314 


020614 


001105 






020616 


105777 


160312 




020622 


100102 






020624 


117746 


160306 




020630 


042716 


177600 




020634 


022726 


000007 




020640 


001073 






020642 


126727 


160256 


000001 


020650 


001467 






020652 


004567 


001074 




020656 


021547 






020660 








020660 


004567 


001066 




020664 


021554 






020666 


016746 


157304 




020672 


10674b 






020674 


105066 


000001 




020700 


004767 


002320 





.ENABL LSB 

;*SOFTWARE SWITCH REGISTER CHANGE ROL^INE. 
:*RaUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 



iCKSWR: 



$GTSWR: 



CMP 
BNE 
TSTB 
BPL 
MOVB 
BIC 
CMP 
BNE 
CMPB 
BEQ 
JSR 
.WORD 

JSR 
.WORD 
MOV 



^SWREG.SUR 
15$ 
8$TKS 
15$ 

a$TKB.-(SP) 
#tC17).(SP) 

15J 

$AUT0B.#1 
15$ 

R5, $PRINT 
$CNTLG 



$M§WR 

SWREG,-(SP) 



$PRINT 



IS THE SOFT-SWR SELECTED? 
BRANCH IF NO 
CHAR THERE? 

IF NO. DON'T WAIT AROUND 
SAVE tHE CHAR 
STRIP-OFF THE ASCII 
IS IT A CONTROL G? 
NO. RETURN TO USER 
ARE WE RUNNING IN AUTO-MODE? 
jBRANCH IF YES 

60 PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 

GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
;SAVE SWREG FOR TYPEOUT 



* THE NEXT TWO INSTftuCTIONS PR6vIDE AN INTERFACE TO THE $TYPOC ROUTINE 
;* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 

PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
.ON PSW RETURN. 
$TYPOC :G0 TO THE SUBROUTINE 



MFPS 
CLRB 

JSR 



-(SP) 
KSP) 

PC. 
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SEQ 0095 





WHjO I 


AA1 






ICD 












unon 
.UUKU 




WDUHO 






lot. 
l7> : 


ri 0 




AA^A4<i 








n 0 


UcV 1 ID 


iUj ( 1 ( 


1 fcA'^ 1 P 




7t . 


TCTO 

1 0 Id 




i AA'? 7R 








on 




11 1 1 HO 


loUcUO 






MfiUR 

nuvD 




UH^ f 10 


1 77fcAA 
1 1 lOUU 










A01<i07 
UclOc ' 


AAAAP^ 




7? : 


PMD 

Lnr 




AA 1 AOA 








one 




AAfl^fc7 
UUH jO 1 


AA 1 AAA 






ICO 
Jon 




Uc iJHti 








unon 


Kiev lj\J 


A/;37A<i 


AAAAAfe 




PA t . 


flon 

nVV 




AAATCC 
UV.iV 1 JO 








QO 




AD1 AP7 
UclOc: 1 


AAOA 1 ^ 




1 A t . 

1U« : 


PMD 




001 OPX 
vUlUcO 








DIML 


V 1 OH 


vv J 1 DO 


OOOOOd 






1 3 1 


ft3n77n 

vCKI 1 Iv 


001407 








DC 111 


Vic V lie 


01 AA77 

ViXDO 1 1 


OOOOOP 


1 A01 70 




MOU 

nuv 




OfiP70A 

vOc 1 V/O 


OOOOOA 






unn 

null 


WC IvVH 








iH * : 




0? 1 OOd 

UC 1 U vH 


00A';<^7 


0007A? 
yjyjKj 1 He 






IQO 
Jon 


OP 1 0 1 0 

vc iviv 


00 1 1 7 1 

V/V/il 1 1 








UOBO 




1 PA7P7 

ICO /CI 


1 A01 07 

IvvlV/ 1 


000001 




PMPR 


0P10P0 


00 1 00^ 

vvl vvO 








RNP 

DliC 


OP 1 opp 


01P777 

V/IC III 


0001 00 

Uvvl V/v 


1 A010A 

iOviUH 




MOU 
nuv 


OP 10^0 

vc XV Jv 


OOOOOP 

V/V^vvvC 






1 J y . 


BTT 
n 1 X 


OPIO^P 

vc IvOC 


0047ft7 

Vv*t 1 O 1 


00 1 1 ftO 




iO * . 


Jjn 


0P1 O^A 

vC 1 V oo 


0P1 AP7 

vC IOC 1 


OOOOAO 

UvvvOV/ 






TMP 


0? 1 04P 

vc i. v"tc 


00P4P0 

vvCHCV/ 








RI T 

DL 1 


OP ' Odd 

vc *vHH 


0P1 AP7 
Uc lOc 1 


0000A7 

vWV/O 1 






PHP 


0P1 O'nO 


00701 








RCT 
Do 1 


OPIO^P 

VClU JC 


0AP7PA 

UHC 1 CO 


OOOOAO 






DXU 


OP 1 flSft 

\JC Iw JO 


00S7Afi 

Uv J 1 OO 


OOOOOP 






1 0 1 


OPIOt^P 


001 A07 








Duul 


OP 1 C\(A 

V/CivOH 


vVJO JIO 








flCI 
nOL 


0P1 0A^^ 
vC IV^OO 


00A71 A 

V/VOOIO 








aci 

nOL 


OP 1 070 

\IC Iv l\J 


00A71 A 

vvOO lO 








ACI 
nOL 


021072 


005266 

W •^h-i W 


000002 




17$' 


INC 


021076 


056616 


177776 






BIS 


021102 


000705 








BR 


021104 








18$: 




021104 


004567 


000642 






JSR 


021110 


001170 








.WORD 


021112 


000716 








BR 



R5. $PRINT 
$MNEU 

a$TKS 
7$ 

a$TKB. (SP) 
#tC177.(SP) 
CSP),*^5 
10$ 

R5. JPRINT 

$CNTLU 

#6,SP 

19i 

(SP).#15 
16$ 
4(SP) 
11$ 

2(SP).8SUR 
#6,SP 

R5. $PRINT 
$CftLF 
$INTAG,#1 
15$ 

#100.S$TKS 

PC.$TYPCC 

(SP),#60 

18$ 

(SP),#67 
18$ 

#60.CSP)* 

2(S1^) 

17$ 

(SP) 
(SP) 
(SP) 
2(SP) 

-2(SP),(SP) 
7$ 



021114 011646 

021116 016666 000004 000002 

021124 105777 160004 

021130 100375 



.DSABL LSB 

;*THIS ROUTINE 
!*CALL: 

RDCHR 
;* RETURN 
:* 

iRDCHR: MOV 
MOV 

1$: TSTB 
BPL 



R5. 

$QUES 

20$ 



$PRINT 



GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 

CLEAR COUNTER 

THE NEW SUR 

CHAR THERE? 

IF NOT TRY AGAIN 

PICK UP CHAR 

MAKE IT 7-BIT ASCII 

IS IT A CONTROL-U? 
:BRANCH IF NOT 

60 PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 

IGNORE PREVIOUS INPUT 

LET'S TRY IT AGAIN 

IS IT A <CR>? 

BRANCH IF NO 

YES. IS IT THE FIRST CHAR? 
BRANCH IF YES 
SAVE NEW SUR 
CLEAR UP STACK 

GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 

RE-ENABLE TTY KBD INTERRUPTS? 

BRANCH IF NOT 

RE -ENABLE TTY KBD INTERRUPTS 

RETURN 

ECHO CHAR 

CHAR < 0? 

BRANCH IF YES 

CHAR > 7? 

BRANCH IF YES 

STRIP -OFF ASCII 

IS THIS THE FIRST CHAR 

BRANCH IF YES 

NO, SHIFT PRESENT 

CHAR OVER TO MAKE 

ROOM FOR NEW ONE. 
KEEP COUNT OF CHAR 
SET IN NEW CHAR 
GET THE NEXT ONE 

GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
; SIMULATE CONTROL-U 



WILL INPUT A SINGLE CHARACTER FROM THE TTY 



HERE 



(SP). (SP) 
4(SP5.2(SP) 
a$TKS 
1$ 



:: INPUT A SINGLE CHARACTER FROM THE TTY 

CHARACTER IS ON THE STACK 
::WITH PARITY BIT STRIPPED OFF 

::PUSH DOWN THE PC 
::SAVE THE PS 
:;WAIT FOR 
::A CHARACTER 



F8 



CVMSAB 0 <f HEGAWOk'^ MEMORt 
TTY INPur ROUTINE 
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SEQ 0096 



ftD 1 1 to 

\Jciiic 


1 1 Htm 


1 AAnnO 
lOUUW 


00 00 OA 




HOUR 


foil AA 


U*»c 'DO 


1 77^00 


0000 OA 




RTT 


n3 1 1 AC. 


05Af.57 


OrtOOOA 


000057 




TMP 

LMr 




001 01 7 








RKIP 




1 OIn??? 

lUJ III 


1 '\77'\5 




54 - 


tc;tr 

1 J 1 D 


051 1 <i5 


1 0077'\ 








RPI 

Dr L 




1 1 11 Af, 
11 1 1 HO 


Ij 1 1 HO 






HOUR 

nu VD 


051 1 70 


OA571 A 


1 77A00 






RTT 


05 1 ' 7A 


055<k57 
yJccOc 1 


000051 








05 1 500 


001 7<ifc 
vvl jDO 








RNP 


051 50? 


noo7'^o 








RR 


05 1 50A 




00 00 OA 
VA/vvvH 


000051 






021212 

Vk 


001744 








BEQ 


021214 


026627 


000004 


000140 




CMP 


021222 


002407 








BLT 


021224 


026627 


000004 


000175 




CMP 


021232 


003003 








BGT 


021234 


042766 


000040 


000004 




BIC 


021242 


000002 






4$: 


RTI 



021244 
021246 
021250 
021254 
021260 



021262 
021264 

021270 
021274 
021276 
021302 
021304 
021306 
021310 
021316 
021322 
021324 
021330 
021332 
021336 
021340 
021344 
021350 
021352 
021354 
021356 
021360 
021366 
021372 



a$TKB.4(SP) 
#tC<l)7>.4{SP) 
4(SP].#2i 
3$ 

a$TKS 
2$ 

a$TKB.-(SP) 

*tC17),(SP) 

(SP)+.i21 

2$ 

1$ 

4(SP).#$X0N 
1$ 

4(SP).#140 
4$ 

4(SP).*175 
4$ 

#40.4(SP) 



READ THE TTY 

GET RID OF JUNK IF ANY 

IS IT A CONTROL-S? 

BRANCH IF NO 

WAIT FOR A CHARACTER 

LOOP UNTIL ITS THERE 

GET CHARACTER 

MAKE IT 7-6IT ASCII 

IS IT A CONTROL-Q? 

IF NOT DISCARD IT 

YES, RESUME 

IS IT A RANDOM XON? 

BRANCH IF YES 

IS IT UPPER CASE? 

BRANCH IF YES 

IS IT A SPECIAL CHAR? 

BRANCH IF YES 

MAKE IT UPPER CASE 

GO BACK TO USER 



jRANOOl 
iRANOOl 



*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 



010346 
005046 
012703 
022703 
101470 



106746 
105066 

004767 
112613 
122713 
001024 
005716 
001010 
112767 
004567 
021530 
012716 
005303 
020327 
103441 
111367 
004567 
021530 
000740 
005716 
001407 
112767 
004567 
021530 



021532 
021542 



000001 
177620 
000177 



000134 000212 
000430 

177777 

021532 

000164 
000402 



000134 000142 
000360 



*CALL: 
* 

Irdlin. 

1$: 
2$: 



RDLIN 

RETURN HERE 

MOV R3.-(SP) 

CLR -(§P) 

MOV #$TTYIN.R3 

CMP *$TTYIN+8..R3 

BLOS 4$ 



INPUT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

TERMINATOR WILL BE A BYTE OF ALL O'S 

SAVE R3 

CLEAR THE RUBOUT KEY 
GET ADDRESS 
BUFFER FULL? 
BR IF YES 



1* THE NEXT TWO INSTRUCTIONS PR6vIDE AN INTERFACE TO THE $RDCHR ROUTINE 
:* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



MFPS -CSP) 

CLRB KSP) 

JSR PC. $RDCHR 

MOVB (Sii)*,(R3) 

10$: CMPB #177.(R3) 

BNE 5$ 

TST (SP) 

BNE 6$ 

MOVB #'\.9$ 

JSR R5. $PRINT 

.WORD 9$ 

MOV #-l,(SP) 

6$ : DEC R3 

CMP R3.#$TTYIN 

BLO 4$ 

MOVB (R3).9$ 

JSR R5, $PRINT 

.WORD 9$ 

BR 2$ 

5$: TST (SP) 

BEQ 7$ 

MOVB *'\,9$ 

JSR R5. $PRINT 

.WORD 9$ 



PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSW RETURN. 
60 TO THE SUBROUTINE 
GET CHARACTER 
IS IT A RUBOUT 
BR IF NO 

IS THIS THE FIRST RUBOUT? 
BR IF NO 

:TYPE A BACK SLASH 

60 PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 

SET THE RUBOUT KEY 

BACKUP BY ONE 

STACK EMPTY? 

BR IF YES 

.SETUP TO TYPEOUT THE DELETED CHAR. 
60 PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 

GO READ ANOTHER CHAR. 

RUBOUT KEY SET? 

BR IF NO 

:TYPE A BACK SLASH 

do PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 



G8 



CVMSAB 0 2 MEGAUORD HEMORY EX HACRO Y05.02 
TT> INPUT ROUTINE 



7$: 
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SEQ 0097 



3601 



021374 


\AJJ\J1Q 






02 


1376 


ICC r ±0 


000025 






A no 


001004 








AW 












UC 1 J He 






02 


412 


0007 1<» 






02 


414 


ICC 1 10 


000022 

vv vvCC 




02 


420 


00 1 0 1 d 

vvlvlH 






0? 

02 


Hi 


10^01 

J04Sg? 






02 


430 


001 1 71 






02 


1432 


004Sfi7 


0007 1 A 




021436 


0? 1 






021440 


00070S 






021442 








02] 


L442 


vV/*t JO 1 






02 


446 


001 1 70 






02 


450 


000fi77 






02 


452 


1 1 n67 


000052 




02' 


456 


004567 


000270 




02 


462 


0P1530 






02 


464 


1 00757 

ICC 1 C«J 


000015 




02 


470 


001271 






02 


.472 


lOSOfi^ 


177777 

X 1 1 1 1 1 




02: 


476 


004567 


000250 




02, 


502 


001172 






02: 


.504 


005726 






02: 


506 


012603 






02: 


510 


011646 






02 


512 


016666 


000004 


000002 

W W Vh 


02: 


520 


01P766 


021532 

Vb wfc 


000004 

W W V T 


02: 


526 


000002 






02: 


530 


000 

V w 






02 


531 


000 






02: 


532 








02 


542 


136 


125 


015 


02 


545 


012 

VIC 


000 




02: 


547 


136 


107 

AVI 


015 


02 


552 


012 


000 




021 


554 


015 


012 


123 


02: 


557 


127 


122 


040 


02: 


562 


075 


040 


000 


02 


565 


040 


040 


116 


021 


570 


105 


127 


040 


021 


573 


075 


040 


000 



8); 



4$: 



3$; 



9$: 

HTYIN: 
$CNTLU: 

$CNTLG: 

$MSUR: 



CLR 

CMPB 

BNE 

JSR 

.WORD 

3R 

CMPB 

BNE 

CLRB 

JSR 

.UOPD 

JSf* 

.UORD 

BR 

JSR 

.WORD 

BR 

MOVB 

JSR 

.UORD 

CMPB 

BNE 

CLRB 

JSR 

.WORD 

TST 

MOV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BLKB 

.ASCIZ 

.ASCIZ 

.ASCIZ 



(SP) 

*25.(R3) 
8$ 

R5. JPRINT 

$CNTLU 

1$ 

#22. (R3) 
3$ 



$CftLF 

jtIyin 

2$ 



$PRINT 
$PRINT 



R5. $PRINT 

$QUES 
1$ 

(R3).9$ 

R5, $PRINT 
9$ 

#15.(R3)+ 
2$ 

-1(R3) 

R5. $PRINT 

$LF 

(SP)* 

(SP)*.R3 

(SP).-(SP) 

4(SP5.2(SP) 

#$TTYiN,4(SP) 

0 
0 

8. - 

/tU/<15><12> 
/tG/<15><12> 
<15><12>/SUR = 



: CLEAR THE RUBOUT KEY 
:IS CHARACTER A CTRL U? 
:BR IF NO 

GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 

GO START OVER 

IS CHARACTER A 'tR'? 

BRANCH IF NO 
iCLEAR THE CHARACTER 
to PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
:G0 PICKUP ANOTHER CHACTER 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 

; CLEAR THE BUFFER AND LOOP 

:ECHO THE CHARACTER 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE ^0 BE TYPED 

; CHECK FOR RETURN 

;LOOP IF NOT RETURN 

2 CLEAR RETURN (THE 15) 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 

CLEAN RUBOUT KEY FROM THE STACK 

RESTORE R3 

ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 

RETURN 

STORAGE FOR ASCII CHAR. TO TYPE 
TERMINATOR 

RESERVE 8 BYTES FOR TTY INPUT 
CONTROL "U" 

; CONTROL "G" 



$MNEU: .ASCIZ / NEW = / 



.SBTTL READ AN OCTAL NUMBER FROM THE TTY 

♦THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
♦CHANGE IT TO BINARY. 

*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
♦OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?" WILL BE TYPED 
♦FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
♦THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
♦CALL: 



RDOCT 
RETURN HERE 



READ AN OCTAL NUMBER 
LOW ORDER BITS ARE ON TOP OF THE STACK 
HIGH ORDER BITS ARE IN $HIOCT 



CvMSAB 0 2 MEGAUORD MEMORY EX MACRO Y05.02 
READ AN OCTAL NUMBER FROM THE TTY 
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SEQ 0098 



021576 011646 

021600 016666 000004 000002 

021606 010046 

021610 010146 

021612 010246 

021614 



$RDOCT: 



MOV 
MOV 
MOV 
MOV 
MOV 



(SP).-(SP) 
4(SPL2(SP) 
RO. (5P) 
Rl. (SP) 
R2.-(SP) 



PROVIDE SPACE FOR THE 
INPUT NUMBER 
PUSH RO ON STACK 
PUSH Rl ON STACK 
PUSH R2 ON STACK 



021614 


106746 




021616 


105066 


000001 


021622 


004767 


177416 


021626 


012600 




021630 


010067 


000102 


021634 


005001 




021636 


005002 




021640 


112046 




021642 


001420 




021644 


122716 


000060 


021650 


003026 




021652 


122716 


000067 


021656 


002423 




021660 


006301 




021662 


006102 




021664 


006301 




021666 


006102 




021670 


006301 




021672 


006102 




021674 


042716 


177770 


021700 


062601 




021702 


000756 




021704 


005726 




021706 


010166 


A A A A 4 'S 

000012 


021712 


010267 


000032 


021716 


012602 




021720 


012601 




021722 


012600 




021724 


000002 




021726 


005726 




021730 


105010 




021732 


004567 


000014 


021736 


000000 




021740 


004567 


000006 


021744 


001170 




021746 


000722 




021750 


000000 





3602 
3603 
3604 
3605 
3606 
3607 

3608 021752 

3609 021756 
3610 



012567 
066767 



1$: 

;* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $RDLIN ROUTINE 
:* UIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



2$: 



3$: 



4$: 



5$; 



$HIOCT: 



MFPS 
CLRB 

JSR 

MOV 

MOV 

CLR 

CLR 

MOVB 

6EQ 

CMPB 

BGT 

CMPB 

BLT 

ASL 

ROL 

ASL 

ROL 

ASL 

ROL 

BIC 

ADD 

BR 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 

TST 

CLRB 

JSR 

.UORD 

JSR 

.UORD 

BR 

.UORD 



■(SP) 
KSP) 

PC. JRDLIN 

(S^)+.RO 

R0.5$ 

Rl 

R2 

(R0)+. (SP) 
3$ 

#'0.(SP) 
4$ 

#'7.(SP) 

4$ 

Rl 

R2 

Rl 

R2 

Rl 

R2 

#tC7.(SP) 

(SP)*,R1 

2$ 

(SP)> 

R1,12(SP) 

R2.$HI0CT 

(SI^)t.R2 

(SP)+.R1 

CSP)+.RO 



PUT THE PROCESSOR STATUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSU RETURN. 

GO TO THE SUBROUTINE 
GET ADDRESS OF 1ST CHARACTER 
AND SAVE IT 
CLEAR DATA UORD 

PICKUP THIS CHARACTER 
IF ZERO GET OUT 
MAKE SURE THIS CHARACTER 
IS AN OCTAL DIGIT 



:;*2 
;;*4 



(SP) + 
(RO) 

R5. 

$QUES 

1$ 

0 



JPRINT 
$PRINT 



:;*8 



STRIP THE ASCII JUNK 
ADD IN THIS DIGIT 
LOOP 

CLEAN TERMINATOR FROM STACK 
SAVE THE RESULT 

POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RO 
RETURN 

CLEAN PARTIAL FROM STACK 
:SET A TERMINATOR 

GO PRINT OUT THE FOLLOUING MESSAGE. 

GO PRINT OUT THE FOLLOUING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
:TRY AGAIN 

:HIGH ORDER BITS GO HERE 



000020 

156550 000012 



021764 106746 



* SUBROUTINE TO PASS RELOCATED MESSAGE ADDRESSES TO THE $TYPE ROUTINE. 

* CALL: JSR R5. $PRINT 

* < MESSAGE VIRTUAL ADDRESS > 

Jl^RINT: MOV (R5)>. 1$ ;GET THE MESSAGE VIRTUAL ADDRESS. 

ADD RELOCf, 1$ iMAKE IT PHYSICAL. 

:* THE NEXT TWO INSTRUCTIONS PR6vIDE AN INTERFACE TO THE $TYPE ROUTINE 
;* UIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 

MFPS -(SP) :PUT THE PROCESSOR STATUS ON THE STAC< 



-8 



CVHSA6 0-2 MEGAUORO HEMORY EX MACRO Y05.02 
READ AN OCTAL NUMBER FROM THE TTY 
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SEQ 0099 



021766 105066 000001 

021772 004767 0C0004 

3611 021776 000000 

3612 022000 000205 
3613 

3614 



CLRB KSP) 



1$: 



JSR 

.WORD 

RTS 



R5 



$TYPE 



HIGH BYTE CLEARED TO INSURE KERNEL MODE 

ON PSU RETURN. 

GO TO THE SUBROUTINE 

CONTAINS THE PHYSICAL MESSAGE ADDRESS. 

RETURN. 



SBTTL TYPE ROUTINE 

♦ROUTINE TO TYDE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
*THE_ROUTINE WILL INSERT^ A NUMBER QF.NULL_CHARACIERS_AFTER A LINE FEED 



*N0TE1 
*N0TE2 
*N0TE3 

*CALL: 
*1) USING 



JNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 













X vy O ^ 

TYPE 










;*0R 














TYPE 












MESADR 


022002 


105767 


157141 




♦TYPE: 


TSTB 


022006 


4 AAAA'^ 

100002 








BPL 


022010 


AAAAAA 
000000 








UAl T 

HALT 


022012 


AAA>1 7A 
000430 








DD 

BR 


022014 


A1 AA/! C 
010046 






1$ : 


MOV 


A ^ ^A 1 C 

U2201O 


A1 T^AA 

01 /bOO 


AAAAAO 
000002 






MOV 




1 TOT ^"7 


AAAAA1 
000001 


157164 




CMPB 


AOOA7A 

0220^0 


f\t\ 1 A 1 1 

001011 








BNE 


022032 


13276 f 


AAA1 A A 

000100 


157155 




DT TD 

BITd 


022040 


An 1 l\ AC 

00140D 








DCA 

BEQ 


022042 


A 1 AA£ 1 

01006 f 


AA AA Ail 

000004 






MOV 


A'^ OA>l£ 

022046 


AA>I niL 1 

004 lb 1 


AAA'^'^il 

0002 f4 






JSR 


022052 


000000 






61$: 


.UORD 


022054 


132767 


000040 


157133 


62$: 


BITB 


VCCvQC 










RNP 

DIlC 


022064 


112046 






2$: 


MOVB 


022066 


001005 








BNE 


022070 


005726 








TST 


022072 


012600 






60$: 


MOV 


022074 


062716 


000002 




3$: 


ADD 


022100 


000002 








RTI 


022102 


122716 


000011 




4$: 


CMPB 


022106 


001431 








BEQ 


022110 


122716 


000200 






CMPB 


022114 


001007 








BNE 


022116 


005726 








TST 


022120 


004567 


177626 






JSR 


022124 


001171 








$CRLP 


022126 


105067 


000202 






CLRB 


022132 


000754 








BR 


022134 


004767 


000056 




5$: 


JSR 


022140 


126726 


157002 




6$: 


CMPB 


022144 


001347 






BNE 


022146 


016746 


156772 






MOV 


022152 


105366 


000001 




?$: 


0EC6 



TRAP INSTRUCTION 
.MESADR 



$TPFLG 
1$ 

3$ 

RO,-(SP) 
a2^SP).R0 
#APTENV.$ENV 
62$ 

*APTSP00L.$ENVM 
62$ 

R0,61$ 
PC.$ATY3 

0 

#APTCSUP.$ENVM 
60$ 

(RO)+.-(SP) 
4$ 

(SP)* 

(SPh.RO 

#2/SP) 

#HT,(SP) 
8$ 

#CRLF.(SP) 
5$ 

(SP)* 

R5. $PRINT 

$CHARCNT 
2$ 

PC,$TYPEC 

$FiLLC.(SP)+ 

2$ 

$NULL. (SP) 
KSP) 



: MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



IS THERE A TERMINAL? 
BR IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 

RUNNING IN APT MODE 

NO.GO CHECK FOR APT CONSOLE 

SPOOL MESSAGE TO APT 

NO.GO CHECK FOR CONSOLE 

SETUP MESSAGE ADDRESS FOR APT 

SPOOL MESSAGE TO APT 

MESSAGE ADDRESS 

APT CONSOLE SUPPRESSED 

YES. SKIP TYPE OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STAC< 

RESTORE RO 

.ADJUST RETURN PC 

RETURN 

BRANCH IF <HT> 

; BRANCH IF NOT <CRLF> 



;:POP <CR><LF> EQUIV 

:G0 PRINT OUT THE FOLLOWING MESSAGE. 



CLEAR CHARACTER COUNT 

GET NEXT CHARACTER 

GO TYPE THIS CHARACTER 

IS IT TIME FOR FILLER CHARS.? 

IF NO GO GET NEXT CHAR. 

GET # OF FILLER CHARS. NEEDED 

AND THE NULL CHAR. 

DOES A NULL NEED TO BE TYPED? 



J8 
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SEQ 0100 



3615 



022156 
022160 
022164 
022170 

022172 

022176 

022202 

022210 

022212 

022214 

022216 

022216 

022222 

02222^ 

022230 

022234 

022240 

022242 

022242 

022246 

022250 

022254 

022260 

022264 

022266 

022266 

022270 

022270 

022274 

022276 

022304 

022312 

022314 

022320 

022322 

022330 

022332 

022334 

022336 



022340 
022346 
022354 
022356 
022364 
022364 
022366 
022370 
022374 
022376 
022404 
022406 
022414 
022416 
022422 



002770 
004767 
105367 
000770 

112716 
004767 
132767 
001372 
005726 
000723 

105777 
100022 
017746 
042716 
122716 
001012 

105777 
100375 
117716 
042716 
122716 
001366 

005726 

105777 
100375 
116677 
122766 
001003 
105067 
000406 
122766 
001402 
105227 
000000 
000207 



112767 
112767 
000403 
112767 

010046 
010146 
105767 
001450 
122767 
001031 
132767 
001425 
017600 
062766 



000032 
000144 



000040 
000014 
000007 



156712 

156706 
177600 
000023 



156666 

156662 
177600 
000021 



156644 

000002 
000015 

000014 

000012 



000001 
000001 



BLT 6$ 
JSR PC.$TYPEC 
OECB $CHARCNT 
BR 7$ 
HORIZONTAL TAB PROCESSOR 



000124 



6$: 
9$: 



$TYPEC: 



101$: 



102$: 
10$: 



MOVB 
JSR 
BITS 
BNE 
TST 
BR 

TSTB 

BPL 

MOV 

BIC 

CMPB 

BNE 

TSTB 

BPL 

MOVB 

BIC 

CMPB 

BNE 

TST 



156636 
000002 



000002 1$: 



TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 

CMPB 
BEQ 
INCB 
$CHARCNT:.U0R0 
$TYPEX: RTS 



. ,(SP) 
PC.iTYPEC 
#7.$CHARCNT 
9$ 

(SP)* 
2$ 

a$TKS 
10$ 

a$TKB.-(SP) 
*177660,(SP) 
#$X0FF,(SP) 
102$ 

a$TKS 
101$ 

3$TKB.(SP) 
*177660.(SP) 
#$X0N.(SP) 
101$ 

(SP) + 

8$ TPS 
10$ 

2(SP),a$TPB 

#CR,2(SP) 

1$ 

$CHARCNT 
$TYPEX 
*LF.2(SP) 
$TYPEX 
(PC)* 
0 
PC 



BR IF NO -GO POP THE NULL OFF OF STAC< 

GO TYPE A NULL 

00 NOT COUNT AS A COUNT 

LOOP 

REPLACE TAB UITH SPACE 
■^YPE A SPACE 
BRANCH IF NOT AT 
TAB STOP 

POP SPACE OFF S'^ACK 
GET NEXT CHARACTER 

CHAR IN KYBD BUFFER? 
BR IF NOT 
GET CHAR 

STRIP EXTRANEOUS BITS 
UAS CHAR XOFF 
BR IF NOT 



;;UAIT FOR CHAR 



GET CHAR 
STRIP IT 
UAS IT XON? 
BR IF NOT 



:jFIX STACK 

;;UAIT UNTIL PRINTER IS READ^ 



LOAD CHAR TO BE TYPED INTO DATA REG. 
IS CHARACTER A CARRIAGE RETURN? 
BRANCH IF NO 

YES- -CLEAR CHARACTER COUNT 
EXIT 

IS CHARACTER A LINE FEED? 
BRANCH IF YES 
COUNT THE CHARACTER 
CHARACTER COUNT STORAGE 



MJDOOl 
MJOOOl 
MJDOOl 
MJDOOl 
MJDOOl 
MJDOOl 
MJDOOl 
MJDOOl 
f JOOOl 
MJOOOl 
MJDOOl 
MJDOOl 
MJDOOl 
MJOOOl 
MJDOOl 
MJDOOl 

;MJD001 



000376 
000366 



SBTTL APT COMMUNICATIONS ROUTINE 



000001 000360 



iAiYi 

$ATY3: 

$ATY4: 
$ATYC: 



000346 

000001 

000100 

000004 
000002 



156610 
156601 

000004 



MOVB *1.$FFLG 

MOVB #1.$MFLG 

BR $AtYC 

MOVB #1.$FFLG 

MOV RO.-(SP) 

MOV Rl.-(SP) 

TSTB $MFLG 

BEQ 5$ 

CMPB *APTENV.$ENV 

BNE 3$ 

BITB *APTSPOOL.$ENVM 

BEQ 3$ 

MOV a4(SP).R0 

ADD *2.4(S.*) 



;jTO REPORT FATAL ERROR 
ssTO TYPE A MESSAGE 

:;T0 ONLY REPORT FATAl ERROR 



PUSH RO ON STACK 
PUSH Rl ON STACK 
SHOULD TYPE A MESSAGE? 
IF NOT: BR 
OPERATING UNDER APT? 
IF NOT: BR 

SHOULD SPOOL MESSAGES? 

IF NOT: BR 

GET MESSAGE ADDR. 

:;6UMP RETURN ADDR. 
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022430 

022434 

022436 

022442 

022444 

022446 

022452 

022454 

022460 

022466 

022470 

022476 

022504 

022510 

022514 

022516 

022516 

022522 

022524 

022530 

022536 

022542 

022544 

022546 

022550 

022552 

022554 

022556 

022562 

022564 

022566 

022570 

022574 

022576 

022602 

022604 

022610 

022612 

022620 

022626 

022632 

022636 

022642 

022646 

022650 

022652 

022654 

022654 

022656 

022662 

022666 

022672 

022674 

022700 

022706 

022714 

022716 



005767 
001375 
010067 
105720 
001376 
166700 
006200 
010067 
012767 
000413 
017667 
062766 
016746 
004767 
000000 

105767 
001422 
0176C0 
062766 
012701 
005711 
100404 
020021 
001406 
005721 
000772 
026701 
001402 
010021 
005211 
105767 
001416 
005767 
001413 
005767 
001375 
017667 
062766 
005267 
105067 
105067 
105067 
012601 
012600 
000207 

010046 
016700 
162700 
005767 
001375 
010067 
012767 
012767 
012600 
000207 



156540 
156546 

156536 

156532 
000004 

000004 
000002 
155266 
177266 

000221 

000004 
000002 
001334 



156720 



000150 

156412 

156364 

000004 
000002 
156342 
000106 
000101 
000074 



156620 
001334 
156302 

156312 
001334 
000002 



1$: 

2J; 



156506 

000016 3$ ; 
000004 



4$; 
5$; 



000004 



156356 
000004 



6$; 



8$: 



9$: 
10$: 



11$: 



12$: 



$ATY6: 



1$; 



156302 
156260 



TST $MSGTYPE 

BNE 1$ 

MOV RO.$MSGAD 

TSTB (R6)* 

BNE 2$ 

SUB $MSGAD,RO 

ASR RO 

nOV RO.$MSGLGT 

MOV #4.$MSGTYPE 

BR 5$ 

MOV 34(SP).4$ 

ADD *2.4(SP) 

MOV 17)776.-(SP) 

JSR PC.$TYPE 

.UORD 0 

TSTB $LFLG 

BEQ 10$ 

MOV 34(SP).R0 

ADD if2MSh 

MOV #$ASTAT.R1 

TST (Rl) 

BMI 8$ 

CMI- RO.(Rl)* 

BEQ 9$ 

TST (RD* 

BR 6$ 

CMP $APTR,R1 

BEQ 10$ 

MOV R0,(R1)* 

INC (Rl) 

TSTB $FFLG 

BEQ 12$ 

TST $ENV 

BEQ 12$ 

TST $MSGTYPE 

BNE 11$ 

MOV 34(SP).$FATAL 

ADD #2.4(SP) 

INC $M§6TYPE 

CLRB $FFLG 

CLRB $LFLG 

CLRB $MFL6 

MOV (SP)+.R1 

MOV (SP)*.RO 

RTS PC 

MOV RO.-(SP) 

MOV $APTR.R0 

SUB *$ astAt.ro 

TST $MSGTY 

BNE 1$ 

fiOV RO.$MSGLG 

MOV *$ASTAT.$MSGAD 

MOV *2.$MSGtY 

MOV (S^)*.RO 

RTS PC 



;SEE IF DONE U/ LAST XMISSION? 

;IF NOT: UAIT 

;PUT ADDR in MAILBOX 

:FIND END OF MESSAGE 

;SUB START OF MESSAGE 
;GET MESSAGE LNGTH IN WORDS 
;PUT LENGTH IN MAILBOX 
;TELL APT TO "'AKE MSG. 

:;PUT MSG ADDR IN JSR LINKAGE 
: :BUMP RETURN ADDRESS 
;;PUSH l))776 ON STACK 
;:CALL TYPE MACRO 



SHOULD LOG AN ERROR? 
;:IFNOT: BR 

;;GET ERROR * 
::BUMP RETURN ADDR. 
POINT t6 TABLE START 
END OF TABLE? 
IF SO: BR 
PROPER ENTRY? 
IF SO: BR 

MOVE PAST COUNTER UORD 
KEEP LOOKING 
TABLE FULL? 

IF SO: BR NO MORE ROOM 
SET UP NEW ENTRY 
BUMP ERROR COUNT 
SHOULD REPORT FATAL ERROR? 
IF NOT: BR 
RUNNING UNDER APT? 
IF NOT: BR 
FINISHED LAST MESSAGE? 
IF NOT: WAIT 
GET ERROR # 

;:BUMP RETURN ADDR. 
TELL A^t TO TAKE ERROR 
CLEAR FATAL FLAG 
CLEAR LOG FLAG 
CLEAR MESSAGE FLAG 
POP STACK INTO Rl 
POP STACK INTO RO 
RETURN 

PUSH RO ON STACK 

GET SIZE OF STAT TABLE 
SEE IF DONE LAST COMMUNICATION 
IF NOT: UAIT 
SET MESSAGE LENGTH 
SET MESSAGE ADDR. 
TELL APT TO TAKE STATS. 
POP STACK INTO RO 
RETURN 
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022720 



022736 



022742 
022743 
022744 



3616 



SEQ 010c 



$ATY7: 



010046 




MOV 


012701 001334 




MOV 


005721 


IJ: 


TST 


100402 




BMI 


005021 




CLR 


000774 




BR 




2$: 




012600 




MOV 


000207 




RTS 


000 


$MFL6: 


.BYTE 


000 


$LFLG: 


.BYTE 


000 


JFriG: 


.BYTE 






.EVEN 


00020^^ 


APTSIZE= 


200 


000001 


APTENV=001 


000100 


APTSPOOL 


=100 


000040 


APTCSUP= 


040 



RO.-CSP) 
#$ASTAT.R1 
(Rl)» 
2$ 

(RD* 
1$ 



CSP)^ 

PC 

0 

0 

0 



,R0 



PUSH 90 ON STACK 
GET START OF TABLE 
END OF TABLE? 
IF SO: BR 
CLEAR ERROR COUNT 
KEEP CLEARING 

POP STACK INTO RO 
RETURN 
MESSG. FLAG 
LOG FLAG 
FATAL FLAG 



.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
♦SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
*WM JS^PPSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
♦BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
♦REPLACED WITH SPACES. 



♦CALL: 



MOV 
TYPDS 



NUM,-(SP) 



022746 






$TYPDS: 




022746 


010046 






MOV 


022750 


010146 






MOV 


022752 


010246 






MOV 


022754 


010346 






MOV 


022756 


010546 






MOV 


022760 


012746 


020200 




MOV 


022764 


016605 


000020 




MOV 


022770 


100004 






BPL 


022772 


005405 






NEG 


022774 


112766 


000055 000001 




MOVB 


023002 


016700 


155524 


1$: 


MOV 


023006 


012703 


023170 




MOV 


023012 


060003 






ADD 


023014 


112723 


000040 




MOVB 


023020 


005002 




2$: 


CLR 


023022 


016001 


023160 




MOV 


023026 


160105 




3$: 


SUB 


023030 


002402 






BLT 


023032 


005202 






INC 


023034 


000774 






BR 


023036 


060105 




4J: 


ADD 


023040 


005702 






TST 


023042 


001002 






BNE 


023044 


105716 






TSTB 


023046 


100407 






BMI 



RO. 
Rl. 
R2. 
R3. 
R5, 



(SP) 
(SP) 
(SP) 
(SP) 
... -(SP) 
f26200.-(SP) 
20(SP).R5 
1$ 
R5 

#'-.l(SP) 
REl6cf. RO 
*$DBLK.R3 
RO, fi3 
.(R3)+ 

R2 

$DTBL(R0).R1 

R1.R5 

4$ 

R2 

3$ 

R1.R5 

R2 

5$ 

(SP) 
7$ 



:;PUT THE BINARY NUMBER ON THE STACK 
;;60 TO THE ROUTINE 



PUSH RO ON STACK 

PUSH Rl ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT NUMBER 

BR IF INPUT IS POS. 

MAKE THE BIN.ARY NUMBER POS. 
iMAKE THE ASCII NUMBER NEG. 
GET RELOCATION FACTOR. 
: SETUP THE OUTPUT POINTER 
ADD IN RELOCATION FACTOR. 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NUMBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT GY 1 

ADD BACK THE CONSTANT 
CHECK IF BCD DIGIT »0 
FALL THROUGH IF 0 
STILL DOING LEADING 0' S? 
BR IF YES 



M8 
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SEQ 0103 



3617 



023050 106316 

02^052 103003 

023054 116663 000001 177777 

023062 052702 000060 

023066 052702 000040 

023072 110223 

023074 005720 

023076 020067 156734 

023102 103746 

023104 101002 

023106 010502 

023110 000764 

023112 105726 

023114 100003 

023116 116o63 177777 177776 

023124 105013 

023126 012605 

023130 012603 

023132 012602 

023134 012601 

023136 012600 

023140 004567 176606 

023144 023170 

023146 016666 000002 000004 

023154 012616 

023156 000002 

023160 023420 

023162 001750 

023164 000144 

023166 000012 

023170 



5$: 



6$ 
7$ 



8$: 



9$ 



$DTBL: 



$DBLK: 
.SBTTL 



ASLB 

BCC 

MOVB 

BIS 

BIS 

MOVB 

TST 

CMP 

BLO 

BHI 

MOV 

BR 

TSTB 
BPL 
MOVB 
CLRB 
"OV 
MOV 
MOV 
MOV 
MOV 
JSR 
.UORD 
MOV 
MOV 
RTI 
10000. 
1000. 
100. 
10. 
.BLKU 



(SP) 
6$ 

KSP). 1(R3) 
#'0.R2 
*' ,R2 
R2.(R3)* 

RO. .EIGHT 

2$ 

8$ 

R5.R2 
6$ 

(SP)* 
9$ 

-1(SP).-2(R3) 

SpS*.R3 
SP;*.R2 
SP)*.R1 
:SP)*.RO 
R5. $PRINT 

$o6lk 

2(SP).4(SP) 
(SP)*.(SP) 



ASCII 

NOT ALREADY A 'GIT 
IN THE OUTPUT oUFFER 



MSD? 

BR IF NO 

yes- -set the sign 

make the bcd digit 

make it a space if 

put this character 
ijust incrementing 
Check the table index 
go do the next digit 

go to exit 

get the lsd 

go change to ascii 

was the lsd the first non-zero? 

BR IF NO 

YES- -SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO ftS 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 
:POP STACK INTO RO 
Co PRINT OUT THE FOLLOWING MESSAGE 
ADDRESS OF MESSAGE TO BE TYPED 
: ADJUST THE STACK 

:RElURN TO USER 



BINARY TO OCTAL (ASCII) AND TYPE 

♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
♦OCTAL (ASCII) NUMBER AND TYPE IT. 

*$TYPOS-- -ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
*CALL: 

NUMBER TO BE TYPED 



TYPEOUT 
FOR NUMBER OF 



DIGITS TO TYPE 



023200 017646 000000 

023204 116667 000001 000213 

023212 112667 000211 



* nuv 

* TYPOS -iCALL FOR 

* .BYTE N -.■.H'l " 

* .BYTE M ;;M=1 

* 

*$TYPON-- "ENTER HERE TO TYPE OUT UITH THE SAME PARAMETERS AS THE LAST 
*$TYPOS OR $TYPOC 
*CALL: 

* MOV NUM,-(SP) 

* TYPON 

*$TYPOC-- -ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
*CALL: 

* MOV 
5* TYPOC 
JTYPOS: MOV 

MOVB 
MOVB 



NUh,-(SP) 

a(SP).-(SP) 

1(SP).$0FILL 

(SP)*.$0M0DE*1 



TO 6 
OR 0 

;;1»TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 



!! NUMBER TO BE TYPED 
:;CALL FOR TYPEOUT 



NUMBER TO BE TYPED 
CALL FOR TYPEOUT 
PICKUP THE MODE 
LOAD ZERO FILL SWITCH 
NUMBER OF DIGITS TO TfPE 



N8 
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SEQ 0104 



023216 
023222 
023224 
023232 
023240 
023246 
023250 
023252 
023254 
023260 

023266 
023272 
0c32/6 
023302 
023304 
023306 
023310 
023312 
023314 
023316 
023320 
023322 
023326 
023330 
023334 
023336 
023340 
023342 
023344 
023350 
023354 
023360 
023364 
023366 
023372 
023374 
023376 
023400 
023402 
023404 
023406 
023410 
023416 
023420 
023422 
023423 
023424 
023425 
0^3426 

3618 

3619 025430 

3620 023432 

3621 023434 

3622 023436 

3623 023442 

3624 023446 



062716 
000406 
112767 
112767 
11276'' 
010346 
010446 
010546 
116704 
005404 
062704 
110467 
116704 
016605 
00b003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105367 
100017 
042703 
001002 
005704 
001403 
005204 
052703 
052703 
110367 
004567 
023422 
105367 
003346 
002402 
005204 
000743 
012605 
012604 
012603 
016666 
012616 
000002 
000 
000 
000 
000 
000000 

005727 
000000 
001010 
005267 
011667 
004767 



000002 

000001 000173 

000006 000167 

000005 000156 



000147 

000006 
000134 
000127 
000012 



000100 
177770 



000060 
000040 
000042 
J 76366 

000032 



$TYPOC: 
UYPON: 



li: 
2$: 

3$: 



000002 000004 



4$: 
5$: 

7$: 
6$: 

8): 

JOCNT: 

JOFILL; 

$OMOD£: 

:ERROR 

fRRTRP; 

1$: 



ADO 
BR 

MOVB 
MOVB 
MOVB 
MOV 
MOV 
MOV 
MOVB 
NEG 
ADD 
MOVB 
MOVB 
MOV 
CLR 
ROL 
BR 
ROL 
ROL 
ROL 
MOV 
ROL 
DECB 
BPL 
BIC 
BNE 
TST 
BEQ 
INC 
BIS 
BIS 
MOVB 
JSR 
.WORD 
DECB 
BGT 
BLT 
INC 
BR 
MOV 
MOV 
flOV 
MOV 
MOV 
RTI 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 



*2.(SP) 

STYPON 

#1.$0FILL 

#6.$0M00E*1 

#5.$0CNT 

R3.-(SP) 

R4.-fSP) 

R5.-(SP) 

$0M0DE*1.R4 

R4 

*6.R4 

R4.$0M00E 

$0^ILL.R4 

12(SP).R5 

R3 

R5 

3$ 

R5 

R5 

R5 

R5,R3 
R3 

$0M0DE 
7$ 

*177770.R3 
4$ 
R4 
5$ 
R4 



ir"0,R3 




$PRINT 



U.R5 
U,R4 
, ^••''^ 
2(SP).4(SP) 
(SP)*.(SP) 

0 
0 
0 
0 
0 



TRAP SERVICE ROUTINE 



177770 
155510 
174372 



TST 
.UORD 
BNE 
INC 
MOV 
JSR 



(PC)- 
0 
2$ 
li 

CSP). 
PC. 



$TMP3 
(ERROR 



ADJUST RETURN ADDRESS 

SET THE ZERO FILL SUITCH 
SET FOR SIX(6) DIGITS 
SET THE ITERATION COUNT 
SAVE R3 
SAVE R4 
SAVE R5 

GET THE NUMBER OF DIGITS TO TYPE 

SUBTRACT IT FOR MAX. ALLOWED 
SAVE IT FOR USE 
GET THE ZERO FILL SUITCH 
PICKUP THE INPUT NIMBER 
CLEAR THE OUTPUT UORD 
ROTATE MSB INTO "C" 
GO DO MSB 
FORM THIS DIGIT 



GET LSB OF THIS DIGIT 
TYPE THIS DIGIT? 
BR IF NO 
GET RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0? 
BR IF YES 

DON' r SUPPRESS ANYMORE O'S 
MAKE THIS DIGIT ASCII 
MAKE ASCII IF NOT ALREADY 
iSAVE FOR TYPING 

GO PRINT OUT THE FOLLOUING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 

COUNT BY 1 

BR IF MORE TO 00 

BR IF DONE 

INSURE LAST DIGIT ISN' T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SUITCH 
NUMBER OF DIGITS TO TYPE 

CHECK IF PREV TRAP TO 4 REPORTED 

CONTAINS ERROR REPORTED FLAG 

BRANCH IF NOT REPORTED 

SET DOUBLE TRAP FLAG. 

SAVE 'HE BAD PC FQR TYPOUT. 

. ERROR (60 TVPE A MESSAGE) 



0-2 ftEGAUOPD ftnORt EX rWCRO ?05.02 
TO OCTAL (ASCII) AND TtPE 
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SEQ OK' 



023452 

023460 
023464 



023466 

023472 
023474 

3634 023476 

3635 023502 

3636 023504 

3637 023510 

3638 023512 

3639 023520 

3640 023522 

023530 

3644 023532 

3645 023534 

3646 023536 

3647 023542 

3648 023546 

3649 023550 

3650 023554 

3651 023556 

3652 023560 
02356? 
023566 
023570 
023572 
023574 

3658 023576 

3659 023600 




3652 
3654 
3655 
3656 
3657 



023602 
023604 

023610 
023614 
023615 
3660 023616 



023620 
023622 



177746 



000012 
155026 
000001 



000031 
000401 
000000 

005067 
000002 



010046 
010146 
010246 
010346 
016602 
005003 
005767 
001430 
032737 
001424 
010201 
006101 
006101 
006101 
006101 
006101 
042701 
062701 
011101 
012700 
006301 
00610^ 
077003 
042702 
0f,0102 
005503 
006302 
006103 
006002 
010346 



106746 

105066 000001 

004767 177364 

003 

001 
010246 



106746 

105066 000001 



2$: 
3$: 



.UORD 
BR 

HALT 

CLR 
RTI 



31 
3$ 



IJ 



lERROR TYPE CODE. 
:SKIP HALT 

! ERROR! SECOND TRAP TO 4 OCCURu: 
i BEFORE FIRST UAS PRINTED 

:RETURN TO PROGRAM AND TRY TJ. RECOVER 



.SBTTL PHYSICAL ADDRESS TYPE ROUTINE 
:* ROUTINE TO TYPE A PHYSICAL ADDRESS (22 BITS). 
iTYPAD: 



177572 



177761 
172340 

000006 



160000 



4$: 



1$: 



MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
TST 
BE3 
BIT 
BEQ 
MOV 
ROL 
ROL 
ROL 
ROL 
ROL 
BIC 
ADO 
MOV 
MOV 
ASL 
ROL 
SOB 
BIC 
ADO 
ADC 
ASL 
ROL 
ROR 
MOV 



RO.-(SP) 
Rl.-(SP) 
R2.-(SP) 
R3,-(SP) 
12^SP). R2 
R3 

MMAVA 
1$ 



Rl 
Rl 
Rl 
Rl 

#177761. 
*KIPARO, 
(Rl). 

^• 
Rl 

R3 

RO 



9«SR0 
Rl 



Rl 
Rl 

Rl 

RO 



4$ 



»1^0000, R2 
Rl. R2 
R3 
R2 
R3 
R2 

R3.-(SP) 



PUSH RO ON STACK 
PUSH Rl ON STACK 
PUSH R2 ON STACK 
:PUSH R3 ON STACK 
GET BASE ADDRESS 
WORKING 6 INDEX REGISTER 
CHECK FOR MEM MGMT AVAILABLE 
BRANCH IF NO MEM MGMT 
CHECK IF MEM MGMT ENABLED 
BRANCH IF MEM MGMT NOT ENABLED 
COPY VIRTUAL ADR 

SHUFFLE BITS 13.14.15 INTO 1.2.3 



CLR ALL EXCEPT BI'S 1.2.3 
SET TO APPROPRIATE PAft 
GET CONTENTS OF PAR 
SET UP COUNTER 
SHIFT PAR 

SAVE OVERFLOW BITS 

COUNT SIX SHIFTS 

SAVE BANK BITS 

COMPJTE PHYSICAL ADDRESS 

MAKE SURE CARRY ISN'T LOST! 

FIRST DIGIT TO R3 



THE NEXT TUO INSTRUCTIONS PR6v 
WIHTOUT USING A "TRAP" INSTRUC 



(SP) 
KSP) 



jRESTORE R2 FOR BITS 14-0 
;?AVE R3 FOR TYPEOUT 
TYPE ADDRESS BITS 21-15 
DE AN INTERFACE TO THE $TYPOS ROUTINE 
riON AS CALLED FOR BY **SYSMAC**. 
;PUT THE PROCESSOR STP'^US ON THE STACK 
;HI6H BYTE CLEARED TO INSURE KERNEL MODE 
;0N PSW RETURN. 
;G0 TO THE SUBROUTINE 
;TYPE 3 DI6IT(S) 
;TYPE LEADING ZEROS 
iSAVE R2 FOR TYPEOUT 
•iTYPE ADDRESS BITS 14-0 
THE NEXT TUO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYP0S ROUTINE 
"TRAP" INSTRUCTION AS CALLED FOR BY **SYSM'>C**. 



MFPS 
CLRB 

JSR 
.BYTE 
.BYTE 
MOV 



PC 
3 ' 
1 

R2. 



$TYPOS 



(SP) 



WIHTOUT USING A 



023626 004767 177346 



MFPS 
CLRB 

JSR 



-(SP) 
USP) 

PC. 



$TYP0S 



PUT THE PROCESSOR S'UUS ON THE STACK 
HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSW RETURN. 
GO TO. THE SUBROUTINE 



CVMSAB 
PHYSICAL 



0 2 HEGAUORD HEHORY EX HACRO Y05.02 
ADDRESS TYPE ROUTINE 
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023632 
023633 

3661 023634 
023636 
023640 
023642 

3662 023644 

3663 023646 
3664 

3665 
5666 
3667 
3668 
3669 



005 
001 
012603 
012602 
012601 
012600 
012616 
000207 



3670 023650 


015 


012 


113 


023653 


124 


061 


061 


023656 


040 


050 


115 


023661 


105 


115 


117 


023664 


122 


131 


040 


023667 


115 


101 


116 


023672 


101 
115 


107 


105 


023675 


105 


116 


023700 


124 


051 


040 


023703 


101 


126 


101 


023706 


111 


114 


101 


023711 


102 


114 


105 


023714 


000 






3671 023715 


015 


012 


062 


023720 


062 
111 
101 


040 


102 


023723 


124 


040 


023726 


104 


122 


023731 


040 


101 


126 


023734 


101 


111 


11". 


023737 
3672 C2374? 


015 


012 


000 


015 


012 


115 


02 f5 


105 


115 


117 


023750 


122 


131 
101 


040 


023753 


115 


4 AA 

120 


023756 


072 


000 




3673 023760 


015 


012 


120 


023763 


101 


122 


111 


0r''766 


124 


131 


040 


02o771 


115 


105 


115 


023774 


117 


122 


131 


023777 


040 


115 

072 


101 


024002 


120 


000 


3674 024005 


015 


012 


106 


024010 


122 


117 


115 


024013 


040 


000 




3675 024015 


040 


124 


117 


024020 


040 


000 




3676 024022 


015 


012 


111 


024025 


116 


123 


125 


024030 


106 


106 


111 


024033 


103 


111 


105 


024036 


116 


124 


040 


024041 


115 


105 


115 



SEQ 0106 



.BYTE 

.BYTE 

MOV 

MOV 

MOV 

MOV 

MOV 

RTS 



5 
1 



CSP] 
CSP 
(SP 



.R3 
.R2 
••Rl 
(SP)*.RO 

PC 



(SP) 



;TYPE 5 DIGIT(S) 
:TYPE LEADING ZEROS 
;POP STACK INTO R3 
:POP STACK INTO R2 
;POP STACK INTO Rl 

:pop stack into ro 

Adjust the stack to clear data 

RETURN 



.sbttl standard program messages 

;*******4i****************A«A«** ********************************* 

VARIOUS MESSAGE PRINTOUTS USED THRUOUT 
THE PROGRAM 

MMAMES: .ASCIZ <15><12>'KT11 (MEMORY MANAGEMENT) AVAILABLE' 



AVAL22: .ASCIZ <15><12>'22 BIT ADR AVAIL' <15><12> 



MEMMES: .ASCIZ < 15><12>' MEMORY MAP: 



MTMAP: .ASCIZ <15><12>'PARITY MEMORY MAP:' 



FROM: .ASCIZ <15><12>'FR0M ' 
TO: .ASCIZ ' TO ' 

INSUFF: .ASCIZ <15><12>' INSUFFICIENT MEMORY. . .FIRST 16K NOT ALL THERE!' 
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SEQ 0107 



024044 


117 


122 

Xbb 


131 


024047 


056 


056 


056 


024052 


106 


111 
XXX 


122 


024055 


123 


124 


040 


024060 


061 


066 


113 

XXw 


024063 


040 


116 

X xu 


117 

X X * 


024066 


124 


040 


101 


024071 


114 


114 


040 


024074 


124 


110 


105 


024077 


122 


105 


041 

V^X 


024102 


000 






3677 024103 


015 

w x^ 


012 

V Xb 


116 MTR- 


024106 


117 

X X ' 


040 


120 

X b V 


024111 


101 

X V X 


122 


111 


024114 


124 


131 


04C 


024117 


122 


105 


107 


024122 

VW ~i fcfc 


111 


123 


124 


024125 


105 


122 

X 


123 

X W V 


024130 


040 


106 


117 


024133 


125 


116 


104 


024136 


000 






3678 024137 


015 


012 


122 PURMS 


024142 


105 


123 


124 


024145 


101 


122 


124 


024150 


111 


116 


107 


024153 


040 


101 


106 


024156 


124 


105 


122 


024161 


040 


101 


040 


024164 


120 


117 


127 


024167 


105 


122 


040 


024172 


106 


101 


111 


024175 


114 


125 


122 


024200 


105 


015 


012 


024203 


000 






3679 024204 


015 


012 


116 NOPES 


024207 


117 


040 


120 


024212 


101 


122 


111 


024215 


124 


131 


040 


024220 


105 


122 


122 


024223 


117 


122 


123 


024226 


040 


106 


117 


024231 


125 


116 


104 


024234 


040 


117 


116 


024237 


040 


115 


105 


024242 


115 


117 


122 


024245 


131 


040 


123 


024250 


103 


101 


116 


024253 


015 


012 


000 


3680 024256 


015 


012 


120 PRORE 


024261 


122 


117 


107 


024264 


122 


101 


115 


024267 


040 


116 


117 


024272 


127 


040 


122 


024275 


105 


123 


111 


024300 


104 


105 


Ml 


024303 


040 


102 


101 


024306 


103 


113 


040 



.ASCIZ <15><12>'N0 PARITY REGISTERS FOUND' 



PURMSG: .ASCIZ <15><12> 'RESTARTING AFTER A POWER FAILURE' <15><12> 



.ASCIZ <15><12>'N0 PARITY ERRORS FOUND ON MEMORY SCAN'<15><12> 



PROREL: .ASCII <15><12>' PROGRAM NOU RESIDES BACK AT 0 TO 8K' 



CVMSAB 0-2 MEGAUORO MEMORY EX MACRO Y05.02 
S'ANOARO PROGRAM MESSAGES 
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024311 


101 


124 


040 


024314 


060 


040 


124 


024317 


117 


040 


070 


024322 


113 






5681 024323 


015 


012 


110 


024326 


111 


124 


040 


024331 


103 


117 


116 


024334 


124 


111 


116 


024337 


125 


105 


040 


024342 


106 


117 


122 


024345 


040 


116 


117 


024350 


122 


115 


101 


024353 


114 


040 


122 


024356 


125 


116 


116 


024361 


111 


116 


107 


024364 


015 


012 


000 


3682 024367 


015 


012 


120 


024372 


101 


122 


111 


024375 


124 


131 


040 


024400 


122 


105 


107 


024403 


111 


123 


124 


024406 


105 


122 


040 


024411 


101 


124 


040 


024414 


000 






3683 02M15 


040 


103 


117 


024420 


116 


124 


122 


024423 


117 


114 


123 


024426 


040 


000 




3684 024430 


015 


012 


116 


024433 


117 


040 


115 


024436 


105 


115 


117 


024441 


122 


131 


040 


024444 


106 


117 


125 


024447 


116 


104 


056 


024452 


000 






3685 024453 


015 


012 


012 


024456 


012 


111 


116 


024461 


120 


125 


124 


024464 


040 


101 


114 


024467 


114 


040 


120 


024472 


101 


122 


101 


024475 


115 


105 


124 


024500 


105 


122 


123 


024503 


040 


111 


116 


024506 


040 


117 


103 


024511 


124 


101 


114 


024514 


056 






3686 024515 


015 


012 


106 


024520 


111 


122 


123 


024523 


124 


040 


101 


024526 


104 


104 


122 


024531 


105 


123 


123 


024534 


072 


040 


040 


024537 


000 






368^ 024540 


015 


012 


114 


024543 


101 


123 


124 


024546 


040 


101 


104 



SEQ 0108 



.ASCIZ <15><12>'HIT CONTINUE FOR NORMAL RUNNING' < 15 >< 12 > 



MXl: .ASCIZ <15><12>' PARITY REGISTER AT 



MX2: .ASCIZ ' CONTROLS ' 

NOMEM: .ASCIZ <15><12>'N0 MEMORY FOUND. 



FADMES: .ASCII <15><12><12><12>' INPUT ALL PARAMETERS IN OCTAL. 



.ASCIZ <15><12>' FIRST ADDRESS: 



LADMES: .ASCIZ <15><12>*LAST ADDRESS: 
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024551 


104 


122 


105 

X V^ 


0P4S54 


123 


123 

Xt ^ 


072 

V 1 t 


024557 


040 


040 


040 


024562 


000 






3688 0?4S63 


015 


012 


077 

V 1 1 


024566 


101 


104 

X 


104 

i V^ 


024571 


122 


105 


123 

Xb w 


024574 


123 


040 


111 

XXX 


024577 


116 

X Xw 


040 


125 


02460? 


116 


115 

X x.^ 


101 

X vx 


024605 


120 

X b V 


120 

X b V 


105 


024610 


104 


040 


102 


024613 


101 


116 


113 


024616 


077 


000 




3689 024620 


015 


012 


123 


024623 


105 


114 


105 


024626 


103 


124 


040 


024631 

vt ~V 


103 


117 

X X * 


116 

X XV 


024634 


123 


124 


101 


024637 


116 

X xw 


124 


072 


024642 


000 






3690 024643 


015 


012 


125 


024646 


116 


105 


130 


024651 


120 


105 


103 


024654 


124 


105 


104 


024657 


040 


115 


105 


024662 


115 


117 


122 


024665 


131 


040 


120 


024670 


101 


122 


111 


024673 


124 


131 


040 


024676 


105 


122 


122 


024701 


117 


122 


000 


3691 024704 


015 


012 


120 


024707 


122 


117 


107 


024712 


122 


101 


115 


024715 


040 


122 


105 


024720 


114 


117 


103 


024723 


101 


124 


105 


024726 


104 


040 


124 


024731 


117 


040 


000 


3692 024734 


015 


012 


115 


024737 


117 


122 


105 


024742 


040 


124 


110 


024745 


101 


116 


040 


024750 


117 


116 


105 


024753 


040 


120 


101 


024756 


122 


111 


124 


024761 


131 


040 


105 


024764 


122 


122 


117 


024767 
024772 


122 


040 


106 


117 


125 


116 


024775 


104 


056 


000 


3693 025000 


015 


012 


123 


025003 


103 


101 


116 


025006 


116 


111 


116 


025011 


107 


040 


115 


025014 


105 


115 


117 



SEQ 0109 



BADAOR: .ASCIZ <15><12>' 7AD0RESS IN UNMAPPED BANK?' 



CONST: .ASCIZ <15><12>' SELECT CONSTANT: 



UNEXPT: .ASCIZ <15><12>' UNEXPECTED MEMORY PARITY ERROR' 



PRELOC: .ASCIZ <15><12>' PROGRAM RELOCATED TO 



MTOE: .ASCIZ <15><12>'M0RE THAN ONE PARITY ERROR FOUND. 



SCANM: .ASCIZ <15><12> ' SCANNING MEMORY FOR BAD PARITY. 



CVMSAB 0 2 MEGAUORO MEHORY EX MACRO Y05.02 
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025017 


122 


131 
117 


040 


025022 


106 


122 


025025 


040 


102 


101 


025030 


104 


040 


120 


025033 


101 


122 


111 


025036 


124 


131 


056 


025041 


000 






5694 025042 


015 


012 


120 


025045 


101 


122 


111 


025050 


124 


131 


040 


025053 


105 


122 


122 


025056 


117 


122 


040 


025061 
025064 


127 


111 


114 


114 


040 


116 


025067 


117 


124 


040 


025072 


103 


114 


105 


025075 


101 


122 


056 


025100 


000 






3695 025101 


015 


012 


116 


025104 


117 


040 


115 


02510-' 


105 


115 


117 


025112 


122 


131 


040 


025115 


124 


105 


123 


025120 


124 


105 


104 


025123 


056 


000 




3696 025125 


015 


012 


123 


025130 


113 


111 


120 


025133 


120 


111 


116 


025136 


107 


040 


124 


025141 


105 


123 


124 


025144 


040 


043 


000 


3697 025147 


377 


377 


000 



3698 
3699 
3700 
3701 
3702 



3703 025152 


120 


101 


122 


025155 


111 


124 


131 


025160 


040 


122 


105 


025163 


107 


111 


123 


025166 


124 


105 


122 


025171 


040 


104 


101 


025174 


124 


101 


040 


025177 


105 


122 


122 


025202 


117 


122 


056 


025205 


000 






3"'04 025206 


101 


104 


104 


025211 


122 


105 


123 


025214 


123 


040 


124 


025217 


105 


123 


124 


025222 


040 


105 


122 


025225 


122 


117 


122 


025230 


050 


124 


123 


025233 


124 


061 


055 


025236 


065 


051 


056 


025241 


000 







SEQ 0110 



PEUNC: .ASCIZ <15><12>' PARITY ERIOR UILL NOT CLEAR. 



NOMTST: .ASCIZ <15><12>'N0 MEMORY TESTED. 



3KPMES: .ASCIZ <15><12>' SKIPPING TEST 



FILL2: .ASCIZ <377><377> 



.SBTTL ERROR REPORTING MESSAGES AND TABLES. 
;* MESSAGE BLOCK FOR ERROR TABLE TYPEOUTS 
DM1: .ASCIZ 'PARITY REGISTER DATA ERROR.' 



DM2: 



.ASCIZ 'ADDRESS TEST ERRQR(TSTl-5). 



CVMSAB 0 2 MEGAUORD MEMORY EX MACRO Y05.02 
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3705 025242 


103 


117 


116 


025245 


123 


124 


101 


025250 


116 


124 


040 


025253 


104 


101 


124 


025256 


101 


040 


105 


025261 


122 


122 


117 


025264 


122 


050 


124 


025267 


123 


124 


066 


025272 


055 


061 


060 


025275 


051 


056 


000 


3706 025300 


122 


117 


124 


025303 


101 


124 


111 


025306 


116 


107 


040 


025311 


102 


111 


124 


025314 


040 


105 


122 


025317 


122 


117 


122 


025322 


050 


124 


123 


025325 


124 


061 


061 


025330 


055 


061 


062 


025333 


051 


056 


000 


3707 025336 


115 


117 


123 


025341 


040 


122 


105 


025344 


106 


122 


105 


025347 


123 


110 


040 


025352 


124 


105 


123 


025355 


124 


040 


105 


025360 


122 


122 


117 


025363 


122 


040 


050 


025366 


124 


123 


124 


025371 


040 


062 


064 


025374 


055 


062 


065 


025377 


051 


056 


000 


3708 025402 


106 


101 


124 


025405 


101 


114 


040 


025410 


105 


122 


122 


025413 


117 


122 


040 


025416 


110 


101 


114 


025421 


124 


000 




3709 025423 


115 


101 


122 


025426 


103 


110 


111 


025431 


116 


107 


040 


025434 


061 


047 


123 


025437 


040 


101 


1'6 


025442 


104 


040 


060 


025445 


047 


123 


040 


025450 


105 


122 


122 


025453 


117 


122 


050 


025456 


124 


123 


124 


025461 


040 


062 


063 


025464 


051 


056 


000 


3710 025467 


120 


101 


122 


025472 


111 


124 


131 


025475 


040 


115 


105 


025500 


115 


117 


122 


025503 


131 


040 


101 


025506 


104 


104 


122 


025511 


105 


123 


123 
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.ASCIZ 'CONSTANT DATA ERR0R(TST6-10). 



SEQ 0111 



.ASCIZ 'ROTATING BIT ERR0R(TST11-12). 



.ASCIZ 'MOS REFRESH TEST ERROR (TST 24-25). 



.ASCIZ 'FATAL ERROR HALT' 



.ASCIZ "MARCHING I'S AND O'S ERRORCTST 23)." 



.ASCIZ 'PARITY MEMORY ADDRESS ERRLR(TST13). 



_9 
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SEQ 0112 



025514 


040 


105 


122 




025517 


122 


117 


122 




025522 


050 


124 


123 




025525 


124 


061 


063 




025530 


051 


056 


000 




3711 025533 




104 


101 


124 


0M12: 


025536 




,11 


117 


040 




025541 




,27 


111 


124 




025544 




.10 


040 


127 




025547 




.22 


117 


116 




025552 




.07 


040 


120 




025555 




01 


122 


111 




025560 




.24 


131 


040 




025563 




.04 


111 


104 




025566 




L16 


047 


124 




025571 


040 


124 


122 




025574 


101 


120 


050 




025577 


124 


123 


124 




025602 


061 


063 


051 




025605 


056 


000 




DM13: 


3712 02560"' 


127 


122 


117 


025612 


116 


107 


040 




025615 


120 


101 


122 




025620 


111 


124 


131 




025623 


040 


104 


105 




025626 


124 


105 


103 




025631 


124 


105 


104 




025634 


054 


040 


102 




025637 


125 


124 


040 




02564? 


116 


117 


040 




025645 


122 


105 


107 




025650 


111 


123 


124 




025653 


105 


122 


040 




025656 


123 


110 


117 




025661 


127 


123 


040 




025664 


105 


122 


122 




025667 


117 


122 


040 




025672 


106 


114 


101 




025675 


107 


056 


000 


DM14: 


3713 025700 


120 


101 


122 


025703 


111 


124 


131 




025706 


040 


122 


10? 




025711 


107 


111 


U3 
122 




025714 


124 


105 




025717 


040 


116 


117 




025722 


124 


040 


115 




025725 


101 


120 


120 




025730 


105 


104 


040 




025733 


101 


123 


040 




025736 


103 


117 


116 




025741 


124 


122 


117 




025744 


114 


114 


4 4 4 

111 




025747 


lib 


107 


040 




025752 


124 


110 


111 




025755 


123 
104 


040 


101 




025760 


104 


122 




025763 


105 


123 


123 





.ASCIZ 'DATIO WITH WRONG PARITY DIDN'T TRAP(TST13). " 



.ASCIZ 'WRONG PARITY DETECTED. BUT NO REGISTER SHOWS ERROR FLAG.' 



, ASCIZ 'PARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS(TST13). 



j9 



CVhSflB 0-2 HEGAUORD MEMORY EX MACRO Y05.02 
ERROR REPORTING MESSAGES AND TABLES. 



025766 


050 


124 


123 




025771 


124 


061 


063 




025774 


051 


056 


000 




3714 025777 


115 


117 


122 


DM16: 


026002 


105 


040 


124 




02^005 


110 


101 


116 




026010 


040 


117 


116 




026013 


105 


040 


122 




026016 


105 


107 


111 




026021 


123 


124 


105 




026024 


122 


040 


111 




026027 


116 


104 


111 




026032 


103 


101 


124 




026035 


105 


104 


040 




026040 


120 


101 


122 




026043 


111 


124 


« T 4 

131 




026046 


040 


105 


122 




026051 


122 


4 « ^ 

117 


122 




026054 


056 


000 






3/15 026056 


104 


101 


124 


DM17: 


026061 


4 A 4 

101 


A il A 

040 


1 A7 

123 




026064 


no 


4 4 T 

117 


4 AC 

125 




026067 


4 4 i1 

114 


4 Ail 

104 


4 4 £ 

116 




026072 


A il T 

047 


4 Ail 

124 


Ail A 

040 




A A ^ A 

026075 


4 4 A 

110 


4 A4 

101 


4 A^ 

126 




AA^ 4 AA 

026100 


4 AC 

105 


Ail A 

040 


4 AT 

103 




A'^^ t AT 

026103 


4 4 A 

110 


1 A 1 

101 


4 4 f 

116 




026106 


4 AT 

107 


1 AC 

105 


4 Ail 

104 




A A 4 4 4 

026111 


A il A 

040 


4 AT 

127 


4 4 A 

110 




AAf 4 4 i1 

026114 


4 AC 

105 


4 4 f 

116 


Ail A 

040 




AA^ 4 4 T 

026117 


4 AA 

120 


4 A1 

101 


A AA 

led 




A A 4 A A 

026122 


4 4 4 

111 


4 Ail 

124 


131 




026125 


A il A 

040 


4 AC 

105 


4 A A 

122 




026130 


122 


117 


122 




026133 


A il A 

040 


4 A il 

124 


122 




026136 


101 


4 AA 

120 


120 




026141 


4 AP 

105 


4 A il 

104 


A C A 

050 




026144 


124 


4 AT 

123 


4 Ail 

124 




026147 


A y 4 

061 


A y T 

063 


AC4 

051 




026152 


A 

056 


A A A 

000 






TV^4^ AA^4Pil 

3716 026154 


4 A A 

122 


4 A 1 

101 


4 4/" 

116 


AU A A 

DM20: 


AA^ 4 

026157 


I Ail 

104 


4 4 T 

117 


4 4 C 

115 




AA^ 4 ^ A 

026162 


Ail A 

040 


1 Ail 

104 


1 A4 

101 




A A^ 4 

026165 


4 Ail 

124 


4 A4 

101 


A il A 

040 




A A ^ 4 T A 

026170 


4 AC 

105 


4 AA 

122 


4 AA 

122 




AA/" 4 

026173 


4 4 T 

117 


4 AA 

122 


ACA 

050 




AA^ 4 

026176 


4 A il 

124 


4 A7 

123 


1 Ail 

124 




A A^ A A 4 

026201 


Af 4 

061 


Af il 

064 


AC4 

051 




AA^ AAil 

026204 


AC£ 

056 


AAA 

000 






T AA^ AA^ 

3717 026206 


4 4 4 

111 


4 4 

116 


4 AT 

123 


AU A 4 

DM21: 


A A^ A 4 4 

026211 


4 

124 


4 AA 

122 


4 AC 

125 






1 (ST 


1 OA 


111 

111 




026217 


117 


116 


040 




026222 


105 


130 


105 




026225 


103 


125 


124 




026230 


111 


117 


116 




026233 


040 


105 


122 
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.ASCIZ 'MORE THAN ONE REGISTER INDICATED PARITY ERROR. 



SEQ 0113 



.ASCIZ "DATA SHOULDN'T HAVE CHANGED WHEN PARITY ERROR TRAPPED(TST13). 



.ASCIZ 'RANDOM DATA ERR0R(TST14). 



.ASCIZ 'INSTRUCTION EXECUTION ERR0R(TST15-22) . 



CvnSAB 0 2 HEGAUORO MEMORY EX MACRO Y05.02 
ERROR REPORTING MESSAGES AND TABLES. 
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SEQ 0114 



026236 


122 


117 


122 


026241 


050 


124 


123 


026244 


124 


061 


065 


026247 


055 


062 


062 


02625? 


051 


056 


000 


3718 026255 


120 


122 


117 


026260 


107 


122 


101 


026263 


115 


040 


103 


026266 


117 


104 


105 


026271 


040 


103 


110 


026274 


101 


116 


107 


026277 


lOS 


104 


040 


026302 


127 


110 


105 


026305 


116 


040 


122 


026310 


105 


114 


117 


026313 


103 


101 


124 


026316 


105 


104 


056 


026321 


000 






3719 026322 


124 


122 


101 


026325 


120 


120 


105 


026330 


104 


054 


040 


026333 


102 


125 


124 


026336 


040 


116 


117 


026341 


040 


122 


105 


026344 


107 


111 


123 


026347 


124 


105 


122 


026352 


040 


110 


101 


026355 


104 


040 


105 


026360 


122 


122 


117 


026363 


122 


040 


102 


026366 


111 


124 


040 


026371 


123 


105 


124 


026374 


056 


000 




3720 026376 


124 


122 


101 


026401 


120 


120 


105 


026404 


104 


040 


124 


026407 


117 


040 


061 


026412 


061 


064 


056 


026415 


000 






3721 026416 


106 


101 


111 


026421 


114 


105 


104 


026424 


040 


124 


117 


026427 


040 


124 


122 


026432 


101 


120 


056 


026435 


000 






3722 026436 


050 


101 


103 


026441 


124 


111 


117 


026444 


116 


040 


105 


026447 


116 


101 


102 


026452 


114 


105 


040 


026455 


127 


101 


123 


026460 


116 


047 


124 


026463 


040 


123 


105 


026466 


124 


051 


056 


026471 


000 






3"23 026472 


015 


012 


124 


026475 


122 


101 


120 



.ASCIZ 'PROGRAM CODE CHANGED UHEN RELOCATED. 



.ASCIZ 'TRAPPED. BUT NO REGISTER HAD ERROR BIT SET. 



.ASCIZ 'TRAPPED TO 114.' 



.ASCIZ 'FAILED TO TRAP. 



.ASCIZ "(ACTION ENABLE WASN'T SET)." 



■ASCIZ <15><12>' TRAPPED TO 4 



CvMbAB 0-2 HEGAWORD MEMORr EX HACRO Y05.02 
ERROR REPORTING MESSAGES AND TABLES. 
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3724 
3725 
37P6 
3727 
i728 



026500 


120 


105 


104 


026503 


040 


124 


117 


026506 


040 


064 


040 


026511 


000 







3729 0<i6512 


120 


103 


Oil 


026515 


122 


105 


107 


026520 


on 


AAA 

040 


Ail A 

040 


026523 


123 


057 


4 A^ 

102 


026526 


Oil 


AAA 

040 


040 


026531 


127 


A A4 

101 


123 


026534 


AAA 

000 






7T7A A1£CTC 

3/30 026535 


126 


AC*7 

057 


1 OA 

120 


026540 


1 A7 

103 


All 

Oil 


1 OA 

120 


026543 


ACT 

05/ 


1 OA 

120 


1 A7 

103 


026546 


All 

Oil 


Ail A 

040 


A/I A 

040 




lie 
115 


1 A1 

101 


A1 1 
Oil 


026554 


Ail A 

040 


Ail A 

040 


AilA 

040 


02655/ 


Ail A 

040 


123 


ACT 

05 / 


U26562 


1 AO 

102 


A1 1 
Oil 


AAA 

040 


026565 


Ail A 

040 


Ail A 

040 


A/I A 

040 


0265 /O 


12/ 


101 


123 


0265 /5 


AAA 
000 






3731 0265/4 


126 


ACT 

05/ 


1 Oft 

120 


0265/7 


1 A7 

103 


A1 1 
Oil 


1 Oft 

120 


026602 


ACT 

057 


1 Oft 

120 


1 ft7 

105 


A')C£ AC 

026605 


All 

oil 


Ail A 

040 


ft/ift 
040 


026610 


lie 

115 


1 A1 

101 


fti 1 

Oil 


026613 


A/I A 

040 


Ail A 

040 


A/l A 

040 


026616 


Ail A 

040 


1 07 

123 


ACT 

05/ 


026621 


102 


AAA 
000 




7T7^ A^££^7 

3732 026623 


1 tL. 

126 


rtE»T 
05 / 


1 Oft 

120 


026626 


1 A7 
103 


A1 1 
Oil 


1 Oft 

120 


026631 


ACT 
05/ 


1 OA 

120 


1 ft7 

103 


A'^££ 7>l 

026634 


All 

Oil 


Ail A 

040 


ft/ift 
040 


A0^£ 7*7 

02663/ 


1 50 

122 


1 AC 

105 


1 ftT 
10 / 


026642 


All 
Oil 


040 


ftAft 

040 


026645 


Ail A 

040 


AilA 

040 


lie 

115 


Oc OD 


1 ni 






3^33 026652 


126 


057 


120 


026655 


103 


Oil 


120 


026660 


057 


120 


103 


026663 


Oil 


040 


040 


026666 


115 


101 


125 


026671 


124 


Oil 


040 


026674 


040 


040 


040 


026677 


122 


105 


107 


026702 


040 


040 


040 


026705 


040 


040 


040 


026710 


040 


123 


057 


026713 


102 


040 


040 


026716 


040 


040 


040 


026721 


127 


101 


123 



SEQ 0115 



t*************** *********************************************** 

:6aTA column HEADINGS 



OHl: 



0H2: 



.ASCIZ 'PC 



REG 



S/B 



WAS' 



.ASCIZ 'V/PC P/PC 



MA 



S/B 



UAS' 



DH12: .ASCIZ 'V/PC P/PC MA 



S/B' 



DH14: .ASCIZ 'V/PC P/PC REG 



MA' 



DH15: .ASCIZ 'V/PC P/PC MAUT REG 



S/B UAS' 



CVMSAB 0 2 HEGAUORO MEMORY EX MACRO Y05.02 
ERROR REPORTING MF<;SAGES AND TABLES. 



026724 


000 






3734 026725 


126 


057 


120 


026730 


103 


Oil 


120 


026733 


057 


120 


103 


026736 


Oil 


040 


040 


026741 


111 


125 


124 


026744 


Oil 


040 


040 


026747 


115 


101 


Oil 


026752 


040 


040 


040 


026755 


040 


123 


057 


026760 


10? 


Oil 


040 


026763 


04u 

127 


040 


040 


026766 


101 


123 


026771 


000 






3735 026772 


126 


057 


120 


026775 


103 


Oil 


120 


027000 


057 


120 


103 


027003 


Oil 


040 


040 


027006 


123 


122 


103 


027011 


040 


115 


101 


027014 


040 


040 


040 


027017 


040 


104 


123 


027022 


124 


040 


115 


027025 


101 


040 


040 


027030 


040 


040 


123 


027033 


057 


102 


040 


027036 


040 


040 


040 


027041 


040 


127 


101 


027044 


123 


000 




3736 027046 


126 


057 


120 


027051 


103 


Oil 


120 


027054 


057 


120 


103 


027057 


Oil 


040 


040 


027062 


124 


122 


120 


027065 


05^ 


120 


103 


027070 


000 






3737 027071 


126 


057 


120 


027074 


103 


Oil 


120 


027077 


057 


120 


103 


02 7 102 


Oil 


040 


040 


027105 


124 


122 


120 


027110 


057 


120 


103 


027113 
027116 


040 


040 


040 


040 


122 


105 


027121 


107 


040 


040 


027124 


040 


040 


040 


027127 


040 


040 


127 


027132 


101 


123 


000 


3-'38 027135 


126 


057 


120 


027140 


103 


Oil 


120 


027143 


057 


120 


103 


027146 


Oil 


040 


040 


027151 


122 


105 


107 


027154 


Oil 


040 


040 


027157 


040 


040 


127 


027162 


101 


123 


000 


3739 027165 


122 


105 


107 
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.ASCIZ 'V/PC P/PC lUT HA 



SEQ 0116 



S/B WAS' 



.ASCIZ 'V/PC P/PC SRC HA DST MA S/B WAS' 



.ASCIZ 'V/PC P/PC TRP/PC 



.ASCIZ 'V/PC P/PC TRP/PC REG 



UAS' 



.ASCIZ 'V/PC P/PC REG 



UAS' 



.ASCIZ 'REG UAS MA 



UAS' 



CVMSA8 0-2 MEGAUOftD MEMORY EX MACRO Y05.02 
ERROR REPORTING MESSAGES AND TABLES. 
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027170 


Oil 


040 


040 


027173 


127 


101 


123 


027176 


Oil 


040 


040 


027201 


115 


101 


Oil 


027204 


040 


040 


040 


027207 


040 


127 


101 


027212 


123 


000 




3740 027214 


126 


057 


120 


02^217 


103 


Oil 


120 


027222 


057 


120 


103 


027225 


Oil 


040 


040 


027230 


115 


101 


Oil 


027233 


040 


040 


040 


027236 


040 


123 


057 


027241 


102 


040 


040 


027244 


127 


101 


123 


027247 


000 







3741 
3742 
3743 
3744 

3745 027250 
027253 

3746 027254 
027257 

3747 027261 
027264 

3748 027266 
027271 

3749 027274 
027277 

3750 027302 
027305 



37! 
37| 

Z7i 



000 
000 
000 
000 
000 
376 
000 
377 
000 
377 
377 
376 



032000 
000001 



377 

377 
000 
377 
376 
377 
000 
377 
000 
000 



000 

377 

377 

377 
000 
000 
000 
377 



SEQ 0117 



.ASCIZ 'V/PC P/PC 



MA 



S/B WAS' 



;* DATA FORMAT TABLE FOR ERROR PRINTOUT. 
.BYTE 0.-1,0.0 



6fi 

DF2 
DF3 
DP 14 
DF21 
DF30 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.EVEN 
. = 32000 

.END 



O.-l. -1.0.0 

0,-1.-1.-2.-2 

0,-1.-1,-1,0.0 

0,-1,0.-1.0.0 

-1.0.-1.-2 



:THE LOADERS ARE SAVE HERE TO END OF 8K 
;1536. WORDS 



Syit>ol tabic 



'05.02 nonday 23-Dec oS 



ABASE • 
ACpUl ■ 
ACDul • 
ACPUOP* 

AOpUO > 
ADOUl • 

AOiSuil 

Ar " 

Al 

ApQU14< 
ApOU15> 

ADpU4 
AD0W5 ' 
A0DU6 * 
Appy? * 
ADDU8 - 

ad5u9 * 
ADEVCT' 
ADEVM ' 
AE 

AENV • 

AENi/M » 

AFATAL- 

AMADR1> 

AMAORP' 

AHA0R3' 

AMADR4« 

AMAMSl' 

AMAMS2- 

AMAMS3' 

AMAMS4- 

AMSGAO» 

AMSGLG' 

AMSGTY- 

AM'^YPl' 

AM^YP2' 

AMTYP3» 

AMTYP4» 

APASS ' 

APRIOR- 

APTCSU' 

APTENV= 

APTSI2« 

APTSPO' 

ASWREG" 

ATESTN- 

AUNIT » 

AUSUR < 

AVAL22 

AVECTl- 

AVECT2» 

BADADH 

BANKNO 

OTTp» 



oooooo 

000000 
000000 
000000 
000000 
000000 

ooooco 

000000 
000000 

o-^oooo 
ooocoo 

000000 
000000 
000000 
000000 
000000 

nooooo 

000000 

rooooo 

Cu'>000 
000000 
000000 
000001 
000000 
000000 
000000 
000000 

oooooc 

000000 

ocoooo 

000000 
000000 

oooooc 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000040 
000001 
000200 
000100 
000000 
000000 
000000 
000000 
023715 
000000 
000000 
024563 
014374 

oori4 



BITO ' 
61 TOO -- 
BITOl ' 
BIT02 ' 
Br03 = 
6IT04 « 
6IT05 ' 
BIT06 « 
BIT07 - 
BIT08 ' 
BIT09 = 
BITl ' 
BITIO = 
BITU « 
BIT12 ■- 
BIT13 = 
BIT14 * 
BIT15 ' 
BIT2 ' 
BIT3 = 
BIT4 = 
BITS = 

81 re = 

BIT7 = 

BITS = 

BIT9 = 

BNKTAB 

BPTVEC= 

CH6G1 

CH6G2 

CKPMER 

CLRPAR 

CONST 

CR 

CRLF = 

CTRLS 

DDISP = 

DFl 

DF14 

DF2 

DF21 

DF3 

OF 30 

DHl 

0H12 

DH14 

DH15 

DH2 

DH21 

DH23 

DH24 

DH25 

DH26 

DH30 

DH31 

DIDBH 

DIDBL 



000001 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

OOlOOO 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

017526 

000014 

003434 

016040 

016040 

016672 

024620 

000015 

000200 

006060 

177570 

027250 

027266 

027254 

027274 

027261 

027302 

026512 

026574 

026623 

026652 

026535 

026725 

026772 

027046 

027071 

027135 

027165 

027214 

011516 

011432 



DIDO 

OIPOO 

OISMAP 

OISPLA 

DISPRE 

D«l 

DM10 

OUll 

Dm2 

W13 

DM14 

DM16 

DM17 

DM2 

DM20 

DM21 

DM23 

DM24 

DM25 

0M26 

DM27 

DM31 

DM4 

DM5 

DM6 

0M7 

DONE 

DPDBH 

DPDBL 

DSUR = 

DTI 

0T12 

DT14 

DT15 

DT2 

DT21 

DT23 

DT24 

DT25 

DT26 

DT30 

DT31 

EMTVEC= 

ENOBKT 

ENDINS 

ERROR = 

ERRTRP 

ERRVEC= 

FAOMES 

FILL2 

FLAG8K 

FLG30K 

FROM 

FSTADR 

GMPR 

GMPRA 

GMPRB 



011350 

011606 

005160 

001132 

000174 

025152 

025423 

025467 

025533 

025607 

025700. 

025777 

026056 

025206 

026154 

026206 

026255 

026322 

026576 

026416 

026436 

026472 

025242 

025300 

025336 

025402 

012502 

011756 

011672 

177570 

002042 

002070 

002102 

002114 

002054 

002132 

002150 

002166 

002176 

002212 

002224 

002236 

000030 

017530 

020026 

104000 

023430 

000004 

024453 

025147 

001757 

001774 

024005 

001762 

005262 

005310 

005324 



45 Page 22-56 



SEQ 01 : a 



GKPRBA 005334 
GMPRC 005340 
G»1PRD 005376 
HT = 000011 
INITON 013254 
INITEX 013362 
INITW 013156 
INSUFF 024022 
lOTVEC' 000020 
KOJDA 002000 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTSIZ 004760 
LADMES 024540 
LDDISP 001512 
LF = 000012 
LMAD 001510 
LMEMHI 017524 
LMEMLO 017522 
LSIFLG 001776 
MAMF 015740 
MAMFl 016024 
MAMF2 016036 
MANUAL 006350 
MANULl 006366 
MANUL2 006770 
MAPRB 005432 
MASK4K= 017777 
MASK8K= 037777 
MEMMAP 001514 
MEMMES 023742 
MFPT = 000007 
MMAMES 023650 
MMAVA 0C0536 
MMDOWN 013734 
MMINIT 013000 
MMORE 001754 
MMUP 013370 
MMVEC = 000250 
MPAMEM 005404 
MPENO 002270 
MPPATS 002244 
MPRX 003372 



MPRO 
HPRl 
MPRIO 
HPRll 

npRi2 

HPRll 

nPR14 

MPR15 

MPR2 

MPR3 

MPR4 

MPR5 

MPR6 

MPR7 

MPR8 

MPR9 

MTMAP 

MTOE 

MTR 

MXl 

MX2 

NOMEM 

NOMTST 

NONKT 

NOPES 

OEFLG 

PARMAT 

PARVEC= 

PBTRP 

PBTRPl 

PESRV 

PEUNC 

PHYADR 

PIRQ - 

PIRQVE= 

PLUSl 

PMEMAP 

PRELOC 

PRGMAP 

PROREL 

PRO - 

PRl = 

PR2 - 

PR3 = 

PR4 = 

PR5 - 

PR6 - 

PR7 - 

PS 

PSCAN 

PSU = 

PURMSG 

PWRVEC- 

RADTAB 

RANTST 

RELOC 

RELOCF 




002402 
002446 
002512 
002556 
002622 
002666 
002732 
002776 
023760 
024734 
024103 
024367 
024415 
024430 
025101 
004646 
024204 
001760 
016146 
000114 
010520 
010530 
015632 
025042 
014276 
177772 
000240 
002002 
001654 
024704 
000534 
024256 
000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 
177776 
016212 
177776 
024137 
000024 
002004 
011232 
014626 
000532 
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OFLTOP 

RELO 

RESCHK 

RESLOR 

RESRVD 

RfSTAR 

RESTOR 

REST! 

RESr2 

RESVEC 

ROTATE 

RU 

R^, 

R' 

SAVLOR 

SAVTST 

SCAK^ 

SCOPE - 

3FCT2 

SELECT 

SEuFLG 

SETAE 

SE^CON 

SKPMES 

SPREND 

SPRNT 

SPRNTA 

SPRNTB 

SPRNTP 

SPRNTQ 

SPRNTO 

SPRNTl 

SPRNT2 

SPRNT3 

SRC = 

SRI = 

SR2 = 

:?3 = 

STACK - 

START 

STARTA 

STARTl 

STKLMT= 

SUR 

SWREG 

sue - 

SUOO = 

SUOl = 

SU02 - 

SU03 = 

SU04 = 

SU05 = 

SU06 - 

SU07 = 

SU08 - 

SU09 ' 

SUl = 



014750 
CI 5264 
006232 
015464 
001506 
000300 
000304 
000306 
000324 
000010 
014500 
000006 
i<000006 
1^000007 
015552 
001614 
025000 
000004 
00761? 
003752 
001756 
016004 
014462 
025125 
017024 
016714 
017014 
017020 
016752 
016726 
016756 
016764 
017002 
016776 
177572 
177574 
177576 
172516 
001100 
003744 
003760 
007006 
177774 
001130 
000176 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 



SUlO 

sun - 

SU12 
SU13 -- 
SU14 
SU15 - 
SU2 ' 
SU3 ' 
SU4 = 
SU5 = 
SU6 = 
SU7 -- 
SU8 -- 
SU9 = 
TBITVE= 
TEMP 
TEMPI 
TKVEC = 
TMAP 
TO 

TPVEC = 

TRAPVE= 

TRTVEC= 

TSTMAP 

TSTl 

TSTIO 

TSTll 

TST12 

TST13 

TST14 

TST15 

TST16 

TST17 

TST2 

TST20 

TST21 

TST22 

TST23 

TST24 

TST25 

TST3 

TST32 

TST4 

TST5 

TST6 

TST6A 

TST7 

TYPMAP 

UNEXPT 

UP 

VMK 

VMKl 

UUP 

UUPBYT 

UUPBO 

UUPBl 

UUPB2 



002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000014 

001770 

001772 

000060 

005654 

024015 

000064 

000034 

000014 

001554 

007102 

010004 

010062 

010142 

010220 

011226 

011344 

011426 

011512 

00"'224 

011602 

011666 

011752 

012040 

012272 

012376 

007324 

012506 

007432 

007520 

007652 

007656 

007676 

017026 

024643 

OOOOOO 

013060 

013132 

001766 

010262 

010224 

010322 

010366 



UUPB3 

UUP64 

UUPB5 

UUPB6 

U3X9 

JAPTHD 

JAPTP 

$ASTAT 

$ASTEN 

<ATYC 

$ATY1 

$ATY3 

$ATY4 

$ATY6 

$ATY7 

$AUTOB 

$BASE 

$BOADR 

$BDDAT 

$BELL 

$CDU1 

$CDU2 

$CHARC 

$CKSUR 

$CMTAG 

^CM3 = 

$CM4 = 

$CNTLG 

$CNTLU 

$CPUOP 

$CRLh 

$DBLK 

$DOUO 

$DDU1 

$0DU10 

$DDU11 

$DDU12 

$DDU13 

$DDU14 

$DDU15 

$D0U2 

$0DU3 

$D0U4 

$0DU5 

$DDU6 

$DDU7 

$D0U8 

$DDU9 

$DEVCT 

JDEVM 

$DOAGN 

$DTBL 

$ENDAD 

$ENDCT 

$ENDMG 

JENULL 

$ENV 



011072 
011162 
011206 
011216 
014546 
001320 
001502 
001334 
001500 
022364 
022340 
022346 
022356 
022654 
022720 
001124 
001250 
001112 
001116 
001164 
001254 
001256 
022334 
020606 
001070 
000000 
000004 
021547 
021542 
001222 
001171 
023170 
001260 
001262 
001304 
001306 
001310 
001312 
001314 
001316 
001264 
001266 
001270 
001272 
001274 
001276 
001300 
001302 
001204 
001252 
012754 
023160 
012722 
012654 
012760 
012775 
001214 



Page 22-37 



SEQ 0119 



$ENVM 

JEOP 

$E0PCT 

$ERFLG 

$ERMAX 

$ERR0R 

$ERRPC 

mm 

$ERRTY 

$ERTTL 

$ESCAP 

$ETABL 

$ETEND 

JFATAL 

$FFLG 

$FILLC 

$FILLS 

$GDADR 

$GDDAT 

$GET42 

$GTSUR 

$HD = 

JHIBTS 

$HIOC' 

$ICNT 

$ILLUP 

$INTA6 

$ITEMB 

$LF 

$LFLG 

$LPADR 

$LPERR 

$MADR1 

$MADR2 

$MADR3 

$MADR4 

$MAIL 

$MAMS1 

$MAMS2 

$MAMS3 

$MAMS4 

$MBADR 

$MFLG 

$MNEU 

$MSGAD 

$MSGLG 

$MSGTY 

$MSUR 

iMTYPl 

$MTYP2 

$MTYP3 

$MTYP4 

$MXCNT 

$NULL 

$NUTST- 

$OCNT 

$OMODE 



001215 
012624 
012646 
001073 
001105 
020044 
001106 
003434 
020274 
001102 
001162 
001214 
C01320 
001176 
022744 
001146 
001145 
001110 
001114 
012712 
020660 
000000 
001320 
021750 
001074 
000706 
001125 
001104 
001172 
022743 
001076 
001100 
001226 
001232 
001236 
001242 
001174 
001224 
001230 
001234 
001240 
001322 
022742 
021565 
001210 
001212 
001174 
021554 
001225 
001231 
001235 
001241 
020030 
001144 
000001 
023424 
023426 



$QVER 

$PASS 

$PASTM 

$PRINT 

$PURAO 

$PURDN 

$PURMG 

$pyRUP 

JQUES 

$RDCHR 

$RDLIN 

$RD0CT 

$RDSZ - 

$SAVR6 

JSCOPE 

$SETUP- 

JSTUP = 

$SVLAD 

$SVPC = 

$SUR = 

$SUREG 

$SURMK= 

$TESTN 

$TIMES 

$TKB 

$TKS 

$TMPO 

$TMP1 

$TMP2 

$TMP3 

$TN = 

$TPB 

$TPFLG 

$TPS 

$TSTM 

$TSTNM 

$TTYIN 

$TYPAD 

$TYPDS 

$TYPE 

JTYPEC 

$TYPEX 

JTYPOC 

$TYPON 

$TYPOS 

$UNIT 

$UNITM 

$USUR 

$VECT1 

$VECT2 

$VERPC 

$XOFF = 

$XON = 

$XTSTR 

$OFILL 

.BITPT 

.CONST 



020014 
001202 
001326 
021752 
000702 
000540 
000676 
000612 
001170 
021114 
021244 
021576 
000010 
000712 
017532 
000130 
177777 
017760 
OOCOlO 
167400 
001216 
000340 
001200 
001160 
001136 
001134 
001150 
001152 
001154 
001156 
000026 
001142 
001147 
001140 
001324 
001072 
021532 
023466 
022746 
022002 
022216 
022336 
023224 
023240 
023200 
001206 
001330 
001220 
001244 
001246 
001504 
000023 
000021 
017556 
023425 
002016 
001764 
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.EIGHT 002036 
.ERRTB 002034 
.MEMMA 002006 



.MPPAT 002030 
.MPRX 002024 
.MPRO 002'^22 



SEQ 0120 



.PBTRP 002026 
.PESRV 002032 
.PMEMA 002014 



.RESRV 002020 
.SAVTS 002010 
.STACK 002004 



.TSTMA 002012 
.TST32 002040 
.$X = 001320 



. ABS. 032000 000 
000000 001 
Errors detected: 0 



(RU.I.GBL.ABS.O^R) 
(RU.I.LCL.REL.CON) 
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